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APPLE - IBM : 1 PARTOUT 



[.'ORDINATEUR 
CONTRE NATURE 

Un IBM matine de Macintosh, ga 
n'existe pas ? Rate, ga s'appelle un 
Mac Charlie et c'est tout compatible. 



Pauvre de vous qui avez achele un 
Macintosh et qui le trouvez lent 
compatible avec lui-meme, n'accep- 
tant que ses penphenques a lui 
son DOS a lui. mais qui craquez 
peut-etre devant sa simplicite d'utih- 
sation. ses programmes a la va- 
kej'taprengadanlaminut e! son air a 
la E-T. 



Pauvre de vous qui iidvawez >..■ 
IBM et qui regrettez de ne pas pou 
voir famenef chez vous ses touches 
de (onction. son clavier numenque 
sa couieur. ses drives 5 pouces i 
quart et son grand nombre de logi- 
ciels 

Mais, voila de quoi vous rejouir ! 
Finis les dilemmes ! Transformez 
votre Mac en IBM compatible avec 
Mac Charlie, veritable harnachement 
qui ajoute au Mac des touches de 
fonction a la IBM. un drive 5 
pouces 1 quart a la IBM. des sor- 
ties a ta IBM et un co-processeur a 
la IBM 

Avec Mac Charlie est fourni" un 
pseudo-clavier IBM ou vous enfi- 
chez votre clavier Mac. un pseuso 
orrjmateur-drive IBM ou vous enfi- 
chez votre Mac et quelques cordons 
oil vous n'enlichez rien du tout 
mais qui raccordent les petits bouts 
d'lBM aux gros bouts de Mac 
Vous mtroduisez alors, dans lori- 
tice prevu a cet etlet. une grande 
disquette et vous travaillez avec 
voire logiciel IBM favori sur I'ecran 




ou Mac. 
lout en dispo 
sant en plus des 
outils propres au 
: commele bureau. 
i horloge, lecalepinet le 
presse-papier. Vous pouvez 
en plus, 6 miracle de la technoiogie, 
passer vos donnees du format IBM 
au format Mac et les uliliser sous 
Mac Write, le vice-versa etant de ri- 
gueur. 

Le tout est ioliment presente, pa 
ressemble plus a un Mac qua un 
IBM et c'est construit pat Dayna 
Communications et ga coute un 
petit peu plus qu'un max 
Attention : (aire les manips des peti- 
tes disquettes du Mac, rentrer et 
sortir les grosses disquettes IBM. 
taper sur le clavier Mac et le 
pseudo-clavier IBM et fame rouler la 
souris, il est (res possible de deve- 
nir fou. Et autant vous dire que 
lorsque le GEM pour MBM aura fan 
son apparition, vous n'aurez plus 
qu'a passer a lasile 
Mac ' ecrit 15 fois 
IBM : ecrit 15 fois 
Ca c'est vraiment du compatible ! ■ 



C'est nouveau, ca vient de sortir : 

Lactualitede la micro-mlormatique Lire pages 9,10. 



SPLOTCH ! FLOTCH I 

EDIKA est la, en page 17. 



DEULIGNEURS 

Les taineants , page 10. 



CINOCHE-TELOCHE 

pages 14 et 15. 



FORMATION A LASSEMBLEUR 

Le prof et I'amateur eclaire vous attendent a la page T9. 



Les souris, les icdnes et les fen§tres 
ne sont plus reservees au Macintosh 
d'Apple. GEM est la, nous I'avons 
teste pour vous : c'est bien. 



Jack Tramiel etant ce qu il est el 
moi ce que je suis. lorsque | al en 
lopportunite de tester le GEM. ie ne 
me suis pas gene. Laisse-moi par- 
ler Madeleine 

Le Gem est le nouveau gestionnaire 
de bureau de Digital Research Ces 
derniers ne le sont pas (les der- 
niersl puisqu'ils onl quand meme 
cree le CP M, ce qui est une refe- 
rence : pratiquement lous les ordi- 
nateurs comportant un micropro- 
cesseur Z80 proposent la 
compatibility avec ce systeme d'ex- 
ploitation et on trouve meme nom- 
bre de micros et d'ordinateurs per- 
sonnels ayant un autre processeur 
offrant la possibility de puiser dans 
['immense bibliotheque de logiciels 
tournanl sous CP.M 

DE QUOI SAGIT-IL ? 

Qu'est-ce que le Gem ? En anglais 
cela s'appelle un WIMP : Windows 
Icons and Mouse Programs Vous 
voulez une traduction en bon fran- 
chouille des families ? Allez. ce sera 
un PIFS : Programme avec Icones. 
Fenetres el Souris Qu'est-ce a dire, 
me dernanderez-vous avec an- 
goisse ? C'est pas a toi que )e 
parte. Madeleine, c'est au lecteur 
Ca veut dire tout betement que ce 
programme, car e'en est un. les 
plus malins d'entre vous I'auront 
deja devine, utilise non seulement 
des icones (sorte de petits dessins 
symbolisant un concept materiel, 
mais n'anticipons pas), mais aussi 
des fenetres et une souris. 



LE PASSE 

Imagine* que vous ayez un vrai bu- 
reau en acajou massif, avec deux 
ou trois corbeilles a documenls. 
des stylos un peu parlout. une su- 
perbe horloge offerte en meme 
temps que I'abonnement a I Ex- 
press, la photo de voire femme. le 
numero de telephone de votre mai- 
tresse au dos. une calculatnce. une 
poubelle et un interphone. 

LE PRESENT 

Vous etes depasse Vous pouvez 
remplacer tout ga par un ordinateur 
et un Gem. Configuration minimum 
necessaire pour pouvoir uliliser le 
Gem : deux lecteurs de disquettes 
et 256 Ko de Ram. 





Vous allumez votre ordinateur aus- 
sitot. I'ecran vous montre vos cor- 
beilles a documents, en I'occurence 
un dessin representant un lecteur 
de disquettes, un autre le disque 
dur. un troisieme une poubelle... 
En bret. lout ce que comporte votre 
configuration Vous voulez regarder 
de plus pres le contenu de la cor- 
beille du dessus ? Vous dirigez la 
fleche sur I'ecran grace a votre 
souris jusque sur I'icone choisie, 
vous cliquez deux fois et I'icone en- 
vahit i'ecran decrivant les fichiers 



Le Gem est done un gestionnaire dt 
bureau Nous pouvons done en de- 
duire avec une subtilile que tout le 
monde nous envie que ce pro- 
gramme geste les bureaux Et dis- 
moi. Madeleine, c'est quoi geslei 
un bureau ? 




Suite page W 



BIDOUILLE GRENOUILLE 

Ou comment tricher, pirater, modifier, trafiquer. magouiller. 
bidouiller et grenoulller avec les logiciels du monde entier. 
Mais dans la legalite, au moins ? Of course, mon general ! 
Lire page 9. 



ETLEJACKINTOSH, 
ON L'OUBUE LE 
JACKINTOSH ? 
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Sacre bon Dieu ae bonsoir de 
sacre Jack de sacre Tramiel 
de bon sang de bonsoir. Ses 
chevilles gonflent. s'enflent et 
se distendent telle la gre- 
nouille, pas la notre, celle du 
boeut. Au fur et a mesure que 
i'echeance de la sortie de 
I Atari 520 ST approche a 
grands pas de plus en plus im- 
minents. les specifications 
techniques particulieres intrin- 
seques de la machine devien- 
nenl de plus en mieux. 
Mais avant la technique, il y a 
I'homme : il declare avoir peur 
de devoir se baltre (se baslon- 
ner en vrai. pas un duel ver- 
bal) avec Sir Clive. il attaque 



directement Apple, it renie la 
micro familiale... 
Et puis. Jack "Against-The- 
Rest-Of-The-World" Tramiel 
espere vendre 5 millions de 
son nouveau micro en 85. 
C'est d'autant plus ambitieux 
que la sortie de la bete en 
question nest pas prevue 
avant cet ete. Comptons sei- 
gneurialement 7 mois d'exer- 
cice : il doil produire plus de 
700.000 machines par mois. 
Faudra qu'il arrete de (aire des 
declarations a la presse et qu'il 
se mette au tournevis et au fer 
a souder. 

Suite page 16 



CONCOURS PERMANENTS 

Votre programme, non content de vous rapporter 1.000 
francs par page publiee. peut vous rapporter 20.000 
francs chaque mois ou un voyage en Californie pour deux 
chaque trimestre. Reglement en page interieure. 
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TI99 BASIC SIMPLE 



4 epreuves vous attendent durant les jeux olympiques 
de Los Angeles. Parviendrez vous a revenir gagnant et 
a apporter la gloire a votre pays. Le graphisme est ex- 
ceptionnel pour du basic simple. 

Laurent LEVREAY 



Mode d'emploi: 
Commenl jouer : 

1: Le 100 metres : En appuyant alternativement sur les touches . et 
. le personnage avance. 

2: Le 1110 metres hales : ici voire personnage court tout seul mais 
il a deux vitesses. Celles-ci sobtiennent en appuyant sur les tou- 
ches 1 ou 2. 1 = case par case. 2= 2 cases par 2 cases. On saute 
les haies en appuyant sur (ENTER). 

3: Le lancer du javelot : on fait courir le bonhomme avec les tou- 
ches , et . mais il taut larreter avant le plot en bout de piste. (Sinon 
I'essai est foul). Une fols en bout de piste il faut appuyer sur (enter) 
pour decider de Tangle. Plus on laisse la louche enfoncee. plus I'an- 
gle monte Puis ortrelache la touche et le javelot s'envole. 
4: Le saut en longueur comme pour le lancer du javelot 



Void maintenant la composition de ce super programme qui. je vous 
le rappelle. fait 588 lignes. (Attention il occupe pratiquement toute la 
memoire >) 



LIGNES 
100 a 180 
190 a 380 : 
390 a 660 : 
670 a 1050: 
1060 a 1810: 
1820 a 2000: 

2010 a 2830: 
2840 a 3810: 
3820 a 4130: 
4140 a 4430: 



4440 a 4480: 
4490 a 4530: 
4540 a 4600: 
4610 a 4670: 
4680 a 4850: 
4860 a 4990: 

5000 a 5190: 
5200 a 5410: 
5420 a 5550: 
5560 a 5600: 
5610 a 5840: 
5850 a 5970: 
5980 : 



REM •*••«••#»*»«--*••» 

REM ••••TI-CATHLON«»»* 
REM «•-••»••«•»•#»»•*• 

REM » copyright 1984 * 

REM ilaurent l«vreay* 

REM •••»«#•»»-»•»•***» 

REM »pour TI 99/4A ent 

REM ■ basic simple ■ 

REM ••»*»-»•••»«#»"••• 

CALL CLEAR 

CALL SCREEN <2> 

RESTORE 5620 

FOR I»l TO 34 

READ A. A* 

CALL CHAR(A.A»> 

NEXT I 

RESTORE 5690 

PRINT " VEUILLEZ PATIENTEZ S.V 



ioio owsm-ioooo 

1020 QW«U)-"7??" 

1030 NEXT I 

1040 QWS(l>-62553 

1050 QW*(!)-"L&L" 

1060 REM »••«••«•< 

lOO METRES • 



B60 PRINT "b 



BBO RESTORE 57H 

890 FOR 1=1 TO NJ 

900 READ LI, CO 

910 Q«=N»(I) VsOOOOOO" 

920 GOSUB 4440 

930 NEXT I 

940 GOSUB 5920 

950 IF EPOO THEN 1060 

960 RESTORE 5720 

970 FOR 1=1 TO 4 

980 READ H»<I) .HSCIl 

990 NEXT I 

1000 FOR 1=2 TO 5 



entete 

initialisation et redefinilion des caracteres 

presentation 

suite de I'initialisation et debut du jeu 

1ere epreuve : le 100 metres 

aflichage du meilleur essai pour chaque joueur et 

augmentation des scores 

2eme epreuve : le lancer du javelot 

3eme epreuve : le 110 metres haies 

4eme epreuve : le saut en longueur 

repartition des scores, affichage des 5 meilleurs et 

fin du jeu 

sous-programme d affichage dun mot a lecran 
sous-programme d'attente au clavier 
sous-programme d affichage du nom du joueur 
sous-programme d'affichage du temps 

sous-programme d'affichage du record en bas de 

lecran 

sous-programme d'affichage des scores 

sous-programme de calcul de la longueur 

sous-programme dacceptation de I'essai 

sous-programme bonus 

datas du programme 

sous-programmes musicaux 

il faut bien trouver une fin, non ? 

PS: Une epreuve reprend parfois des embranche- 
ments d'autres epreuves 



19B0 FOR K-l TI 
1990 NEXT K 
2000 RETURN 
2010 REM • •••■ 
JAVELOT 



280 FOR I" I TO 12 
290 READ A,B 
300 CALL COLORU.A.B) 
510 NEXT ! 
320 CALL CLEAR 
330 RESTORE 5800 
340 FOR 1=65 TO 90 
350 READ A* 
360 A»="00"IrA« 
370 CALL CMAR(li ft *» 
3BO NEXT I 

390 REM WMMt W M H UMW M 
400 RESTORE 5700 
410 CA-104 

420 CALL HCHAR(13. 1, 127,32) 
430 FDR 1-1 TO 32 
440 CALL HCMAR< 13. I.CA) 
450 IF (I<12>*(I>21>THEN 900 
460 READ C 

470 CALL HCHARC13, I,C) 
4B0 CALL SOUND* 1, 1*196. 10> 
490 GOTO 310 
500 CALL HCHAR (13, I, 127) 
510 CA-CA+1 

520 IF CAO06 THEN 540 
530 CA-104 
540 NEXT I 
550 GOSUB 5920 

560 PRINT " APPUYER SUR UNE TOUCHE" 
570 CALL KEY(3,A.B) 
580 IF B-0 THEN 570 
590 CAR- 104 
600 FOR 1-1 TO 32 
610 CALL HCHARU2, I. CAR) 
620 CALL HCHARC12.I.127) 
630 CAR-CAR* 1 
640 IF CAR<106 THEN 660 
650 CAR- 104 
660 NEXT I 

670 REM •»•••-«-»•»••»«* 
6B0 CALL CLEAR 
690 HSC-O 

700 INPUT "NOMBRE DE JOUEURS (l-4)?"tNJ 
710 IF <NJ< 1 )+(NJ>4)TWEN 700 
720 DIM SC(4) ,N«(4) ,HS(4) ,HS44> .HHSI4) ,0 
US(6),GW*(6) 
730 CALL CLEAR 

740 PRINT " ENTREZ 3 LETTRES"::: 
750 FOR 1=1 TO NJ 

760 PRINT ::"NOM DU JOUEUR:";!:: 
770 INPUT N*tl) 
780 IF (LEN<N«(I) > >3> ■•- (LEN<N« ( I ) X 3) THEN 

770 
790 NEXT I 
800 FOR 1=1 TO NJ 
810 SC(I>=0 
B20 NEXT I 
830 CALL CLEAR 
840 PRINT 



10 70 

1 OHO 

1090 

i 100 

1 1 10 

1120 

1 1 SO 

1 140 

l i SO 

1 160 
I 1 70 

l i 90 
i 1 W 
i 200 
l 2 1 
1 220 
1230 
1 2430 
l 230 

i :?7o 



EP-l 

CALL HCHARdl, 1. 127,448) 

FOR J-14 TO 20 STEP 3 

CALL HCHAR<J, 1, 1 12,32) 

NEXT J 

CALL HCHAR<23, 1.112, 14) 

CALL HCHAR<14,2,48) 

LI-14 

CG--1 1 

FOR J-l TO 9 

CALL HCHAR<LI,CO, J+4B) 

CALL HCHAR <L I. CO+ 1.48) 

CO-CO+10 

IF C0<33 THEN 1240 

LI -LI +3 

A-CO-10 

C0-10-(32-A) 

NEXT J 

CALL HCHAR(23,3.49) 

CALL HCHAR(23,6,4B.2> 

CALL HCHAR<22,&, 109) 



l loo 



12SO GOSUB 4S60 

1290 FOR AS- I TO 3 

1300 CALL HCHAR<6,2?.AS<4S> 

1310 CALL SOUND (lO. 1000. ,IO) 

1320 FOR 1-1 TO NJ 

1330 

1 MO 

l 390 

l 360 

1 S70 

1380 

1 390 

1 400 

1410 

1420 
1 430 

144 

! 4 50 
i 460 

14 70 

14B0 
1490 

1 500 



1520 

1930 

1540 

1 530 

1 360 

1370 

1380 

1390 

1600 

1610 ' 

1620 

1630 

1640 

1650 

L660 
1670 

: 68< ■ 
1690 

1 700 

i 710 

1720 

1 730 

: 74.:. 
i 790 
i F6G 

17 70 

i 70.:. 
I 79. :» 

1800 



CA-104 

CALL HCHAR C 

IF ASOl THEN 1 

HHS ( I ) -0 

OOSUB 4540 

GOSUB 5420 

IF A-78 THEN 1780 

GOSUB 4490 

CALL HCHAR (X.Y.CAI 

IF (X-22)*<Y.5)THEN 1660 

TT=TT*.02 

CALL KEY(3.A.B) 

TT-TT+. 13 

0Q-0Q+.5 

IF B<1 THEN 1460 

IF (A<.^44)»(A<>46)THEN 1470 

CALL HCHARCX.Y. 127) 

TT-TT+. 11 

IF 1NT<4-QQ)»0 THEN 1560 

GOTO 1570 

Y-Y+INT(4-00> 

QQ-0 

IF Y<33 THEN 1620 



X+3 



-32 



lfcl.O 



(830 

: 9-;... 
IBSO 
I860 

1870 



CA-CA*1 

IF Cfl<106 THEN ; 

CA-104 

GOTO 1440 

IF (AS=1)+<HHS<I)=G)THEN 1680 

IF TT>HHS(I)THEN 1690 
HHS ( I ) =TT 
GOSUB 4610 

IF TT<-HS(EP)THEN 1 720 

GOTO 1760 

HS(EP)-TT 

H*<EP)=N»<I) 

GOSUB 5570 

GOSUB 4860 

CALL HCHARCX.Y. 127) 

CALL HCHAR ( 22 . 6 . 1 09 ) 

NEXT I 

NEXT AS 

GOSUB 1820 

GOTO 2010 

CALL HCHAR (1 1. 1.32.448) 

LI = 14 

FOR 1=1 TO NJ 

LO-LI 

CO-4 



(I) 



PERFORMANCE: "SSTR«(HH5<I 



1880 G05UB 4440 

1890 IF <EP=1)+»EP=3)THEN 1920 

1900 SC<I)=SC(I)+INT(HHS(I)«1G0*(-(EF=4> 

•5000) ) 

1910 GOTO 1930 

1920 IF HHStnOO THEN 1940 

1930 GOTO 1930 

1940 SC ( I ) =SC ( I ) * INT (5000-HHS ( I > » lOO) 

1950 GOSUB 5000 

1960 LI^LO+2 

1970 NEXT I 



EP=2 

CALL HCHAR (1 1, 1 . 127,448: 

CALL HCHAR(15. 1. 1 12. 32) 

CALL HCHARC17. 1.32. 160) 

CALL HCHAR(15,2.6B) 

CA-49 

FOR k-3 TO 27 STEP 3 

CALL HCHAR (20, K.CA) 

CALL HCHAR(20,K*1.48> 

CA-CA*1 

NEXT K 

CALL HCHAR 1 20, 1.48) 

CALL HCHAR<20. 30.49) 

CALL HCHARI20.31.48.2) 

GOSUB 4860 

FOR AS- 1 TO 3 

CALL HCHAR<6.29,48+AS) 

CALL SOUND (10, 1000. lO) 

FOR 1-1 TO NJ 

IF AS 1 THEN 2230 

HHS ( I ) -O 

X-14 



2020 
2030 

2040 

2O50 
2O60 

2070 
2080 
2090 
2100 
2110 
2120 
2 1 SO 
2140 
2130 
2160 
2170 
2180 
2190 
2200 
2210 
2220 

2230 

2240 ' 

2230 AL-19 

2260 CA-104 

2270 V-O 

2280 TR-O 

2290 CALL HCHAR ( X. Y. 1 OB) 

2300 GOSUB 4540 

2310 GOSUB 3420 

2320 IF A*=7B THEN 2800 

2330 CALL HCHARt 14. 31 . 1 10) 

2340 GOSUB 4490 

2350 V-V-.3 

2360 IF V,0 THEN 23B0 

2370 V-0 

2380 CALL >EY(3.A.8) 

2390 IF (TR=1)(M 8*0) THEN 261u 

24O0 IF A<>!3 THEN 2460 

2410 AL-AL+2 

2420 TR-1 

2430 IF AL Bo THEN 2570 

2440 CALL SOUND (-10. -2.5) 

2450 GOTO 2380 

2460 IF B<1 THEN 2350 

2470 IF (A:>44)»(A<,46) THEN 2350 

24B0 CALL HCHAR ( X. Y, 127) 

2490 V-V+l 

2300 Y-Y+2 

2510 CA-CA*1 

2520 IF CA-U06 THEN 2340 

2930 CA-104 

2540 CALL HCHAR t X . Y. CA) 

2550 IF V>30 THEN 2570 

2560 GOTO 2380 

2570 CALL SOUND ( lOOO. -5. 5) 

2580 CALL HCHAR ( X. Y, 127) 

2590 L-0 

2600 GOTO 2700 

2610 IF V:-0 THEN 2700 

2620 GOSUB 5200 

2630 IF EP-4 THEN 39B0 

2640 FOR K=l TO INT<L/3.33> 

2650 IF (Ki-0H-CK>32)THEN 2700 

2660. CALL HCHAR(1B,K,45> 

2670 CALL S0UND(10.K«196.5) 

26B0 CALL HCHAR < IB. K, 32) 

2690 NEXT V 

2700 GOSUB 46B0 

2710 CALL HCHARfX. Y. 127) 

2720 IF AS-1 THEN 2740 

2730 IF L:HHS<I)THEN 2800 

2740 HHS<I>=L 

2750 IF L:HS(EF)THEN 2SO0 

2760 HS(EP)=L 

2770 H*(EP)=N»(I) 

27B0 GOSUB 5570 

2790 GOSUB 4860 

2800 NEXT I 

2810 NEXT AS 

2B20 GOSUB 1B20 

2830 IF EP=4 THEN 4140 

2B40 REM #.«.-...#••*»•#« 

110 n. HAIES » #*#*««<h 

2850 EP=3 

2860 CALL HCHAR ( 1 1 , 1 . 1 27. 448) 
2B70 FOR 1=14 TO 20 STEP 3 
2880 CALL HCHAR < I , 1 , 1 12, 32) 
2B90 NEXT I 

2900 CALL HCHARC23. I, 1 12, 12) 
2910 CALL HCHARl 14, 2.68) 
2920 LI =13 - 




EPPEUV£ A«"X SEu* 
oL^Mpipues ; le 
110 MfTPES HAiES,*VE£ "NE 
CoftOB ATTAChEfe flu 7DU(? 

PE do mftpfs. 




-V50 
2960 

2 9 Bo 
2990 
3000 
3010 

:.oro 

307.0 
S040 

3O50 
S060 

3070 

soeo 

J09C 

3100 
3110 D0=1 



CALL HCHAR(LI.C0. 109) 
C0=C0+5 

IF CQ<33 THEN 3010 

A-CO-32 

CO=A 

LI=LI*-3 

NEXT J 

GOSUB 4860 

FOR AS*1 TO 3 

CALL HCHAR(6.29.AS+4B) 

CALL SOUNDCIO. 1000. 101 

FOR 1-1 TO NJ 

IF AS. 1 THEN 3090 
HHS ( I ) =0 



X = 13 
Y-2 



CA-104 

TT-O 

CALL GCHAR(X.Y,MW> 

CALL HCHAR(X,Y, lOB) 

GOSUB 4540 

GDSUP 5420 

IF A-78 THEN 3790 

GOSUB 4490 

CALL HCHAR (X.Y.CA) 

IF (X-22)»(Y>10)THEN 3690 

TT-TT*. 13 

CALL KEY(3,A,B) 



2930 CO-6 
2940 FOR J= 



3 1 20 

Z 1 30 

3140 

3150 

3160 

3 1 70 

- IB.. 
3 1 90 

32O0 

321 
3220 
3230 

3240 TT-TT*. 13 

3250 CALL HCHARfX, Y,WW) 

3260 IF A013 THEN 3450 

3270 IF Y+K33 THEN 3310 

3280 X-X*3 

3290 Y-l 

3300 GOTO 3320 

3310 Y-Y-t-I 

3320 CALL HCHAR (X-l , Y, 106) 

3330 CALL HCHAR ( X-l , Y, 127) 

3340 IF Y*I<33 THEN 3380 

3350 Y-l 

3360 X-X*3 

3370 GOTO 3390 

3380 Y-Y*l 

3390 CALL GCHAR I X , Y. WW) 

3400 IF WW0127 THEN 3650 

3410 CALL HCHARIX, Y, 107) 

3420 CALL HCHAR (X, Y. 127) 

3430 Y-V+l 

3440 GOTO 3510 

3430 IF A<>49 THEN 34B0 

3460 GO 1 

3470 GOTO 3500 

3480 IF AOSO THEN 3500 

3490 OQ-2 

3500 Y=Y+QO 

3510 IF Y<33 THEN 3550 

3S20 X-X*3 

3530 A«=Y-32 

3540 Y-A 

3350 CA-CA*1 

3560 IF CA<106 THEN 35B0 

3570 CA-104 

3580 CALL GCHAR ( X . Y. WW) 

3590 IF 00-1 THEN 3640 

3600 IF Y-Kl THEN 3640 

3610 CALL GCHAR (X,V ■■l.Wli 

3620 IF W1O109 THEN 3640 

3630 GOTO 3650 

3640 IF UUO109 THEN 3200 

3650 CALL HCHAR < X , Y. 108) 

3660 CALL SOUND ( 100, -5. 20, 1 10, 15) 

3670 TT-TT+1 

36B0. GOTO 3200 

3690 IF CAS-1 )+(HHS(I)=0)THEN 3710 

370O IF TT HHS<I)THEN 3720 

3710 HHS<I>-TT 

3720 GOSUB 4610 

3730 IF TT>:=HS<EP)THEN 3740 ELSE 3780 

3740 HS(EP)=TT 

3750 H»(EP)=N*(I> 

3760 GOSUB 3570 

3770 GOSUB 4860 

37BO CALL HCHAR(X, Y. 127) 

3790 NEXT 1 

3B00 NEXT AS 

3310 GOSUB 1S20 

3820 REM *•*#»#»■»«•««■»«•» 

AUT EN LONGUEUR •»«»»*•»»«•# 

3830 EP=»4 

3840 CALL HCHAR ( 1 1 . 1 . 127. 44B) 

3B50 CALL HCHAR ( 19. 1 , 32. 96) 

3860 CA=49 

3870 FOR K-2 TO 26 STEP 3 

3880 CALL HCHAR (20, K. CA) 

3890 CALL HCHAR i 19. K. 98) 

3900 CA=CA+1 

3910 NEXT * 

3920 CALL HCHAR (19. 29. 9B> 



TO 21 



Suite page 8 



CRAZY SQUASH 



COMMODORE 
64 



C'est une histoire de cornichon qui doit renvoyer des 
pommes sur- des tas de trues, c'est rapide, joli, les 
bruits sont rigolos, bref c'est super ! 

J. Pierre MARQUE 



* CPR7.V SQUflSH ♦ 
**************** 

JEAN-PIERRE MRPQUE 



LE 19/01/1935 



A suivre : 

En raison de la longueur 
inhabituetle du listing, 
nous passerons ce pro- 
gramme en deux tois 



1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 

I 8 F0RL=54272T054295 : POKEL, 8 NEXT ' K=646 
15 R=1624 B=55296 C=53280 

28 V=53248 POKEL, 15 : M1"54276 M2=54283 

22 SC=5006 : GOSUB6000 

25 P0KE54284.9 P0KE34277.8 

31 DHTR88. 69, 98, 91. 93, 94, 95, 96. 98. 99. 100, 101, 103, 104, 105, 186, 188, 11 1,128, 133 

32 BRTR136, 138, 141 , 146, 148, 151 , 168, 173, 174, 175, 176, 178, 179, 180, 181 ,184, 185, 189 

33 BHTR190, 208, 213, 215, 218, 221. 223, 230, 248, 249, 250. 251, 253, 256, 258, 261. 263, 264 

34 BATH263, 266, 269, 365, 366, 367, 368, 370, 371. 372, 373. 373, 376, 386, 381, 362, 363, 365 

35 BHTR386, 387, 388, 390, 393, 485, 410, 413, 415, 418, 420, 423, 425, 438, 433, 445, 446, 447 

36 DRTR448, 458, 453, 455, 458, 468, 461, 462, 463, 465, 466- 467, 468, 478, 471, 472, 473, 488 

37 rjfi.TR.498, 493, 495, 498, 588, 583. 588, 510, 513, 525, 526, 527, 528, 538, 531, 532, 533, 535 

38 DRTH536, 537, 538, 548, 543, 545, 546, 547, 548, 558, 553, 572 

70 F0RR=1T023 RERDR1,R2,R3 

71 P0KEM1 , 8 : P0KEM2, 8 : P0KEM1 , 33 P0KEM2, 33 

72 P0KE54280,A1 : P0KE54279, R2 : P0KE54273,fil 

73 FORT=1TQH3*10 NEXT NEXT P0KEV*42,6 

74 DHTH16, 195, 10, 22, 96, 10, 22, 96, 18. 25, 38, 18, 28, 49, 18, 22, 96, 18, 28, 49, 10, 25, 30, 10 

75 DRTR16. 195, 10,22,96, 18,22,96, 18,25,30, 10,28,49, 18,22,96,20,21,31, 10, 16, 195. U 

76 DRTR22 96, 10,22,96, 18.25,38, 10,28,43, 10,29.223, 10,28,49, 10,25,38, 10,22,96, 10 

77 DRTA21, 31, 10, 16. 195, 10. 18. 209, 10. 21, 31, 18. 22, 96, 58 
97 IFPEEKC49937K>169THEND=49987 GOSUB4000 ' G0T099 

96 GOTO 102 




V/UIT ViBUf. lift 

ft out o'ertzjf 



edito 



99 RERDV IFV=-1THEN101 

100 POKED, VD"D*1 G0T099 

101 GOSUB3000 GOSUB6510 

102 F0RR=49152T049175 I POKER, NEXT 

103 P0KE49 1 56 , 1 : G0SUB4B78 : GOSUB4080 
105 -POKE 14088, 8 

186 PRINTTRBOU-IOIfOMMES 10" 

187 PRINTTRB^rBOIECORE" 
110 PRINTTRB(32>"»B0000" 

112 P0KE214, 10PRINTTRB(32>"1RECORDH" 

113 PRINTTHBOnSC POKEV+21,7 

1 1 5 POKE 1 6 1 , ; SVS49987 GOTO2088 

116 END 

128 REM *»» BRLLE CENTRE/HRUT **» 

125 DRTR169.0, 141,8.212.32,239, 195 

127 BHTR234,234,234,234,234 

130 DRTR169, 174, 141,8,288 

140 BRTR169..068, 141, 1,208 

150 REM *** RELENT I SSEMENT ... 

168 DRTH32, 34 .199,234,234 

178 DRTH169,0, 141, 1,192 

180 DHTA238, 1,192, 173, 1,192 

190 DRTR201,0,240,3,76,180,195 

200 DRTR32,192,199,234,234,234 

210 DRTR234 , 234, 234, 234 , 234 , 234 , 234 

220 REM *»« DEPLRCEMENT H0RI20NTRL »«* 

230 DRTR32, 181, 195, 173,0,208 

248 DRTR201 1 73, 240, 17 , 281 • 232, 248 , 24 

250 DHTR173,2,192,201.1,240,28 

268 DRTR236,0,288,76,90,195 

270 DRTR1630, 141,2, 192 

275 DRTR32.239, 195,76, 140. 195 

280 DRTR169, 1,141,2,132 

285 DRTR32.233, 195,76, 140, 135 

290 DRTR206 , 8 , 288 , 76 , 90 , 1 35 

300 REM *** DEPLRCEMENT VERTICAL *** 

310 DRTR32.25, 136, 173, 1,206 

320 DRTR201 , 56 • 240, 22 • 201 , 250 . 240. 60 

330 DRTR32,121,196,32.236,197,234 

340 DRTR173,3, 192,201, 1,240,26 

358 DRTR238, 1,288,96 

360 DRTR169.0, 141,3. 192,32.239, 195 

370 DRTR76.202.195 

400 DRTR234, 234, 234, 234. 234, 234, 234, 234 

405 DRTR234 234,234 

410 DHTA286, 1,288,96 

428 REM »*» REBONB SONOPE *** 

438 DRTR169.30, 141, 1,212 

440 I'fiTA169,88,141,4,212 

450 DRTR169, 23, 141,4,212,96 

460 REM *** BRLLE PERDUE *** 

470 DRTR169, 180, 141, 1,212 

480 DATA16916, 141,4,212 

485 BATA169, 0,141. ,107, 195 

498 BATR163, 17, 141,4,212 

588 DRTH32.77, 196,76,67. 195 

518 REM **« DEPLRCEMENT RRBUETTE *♦* 

528 DRTR 173, 203,8 

538 DRTR281 • 47, 240 , 5, 201 , 44 , 240 . 2 1 . 96 

540 DRTR206,2,208, 173, 2, 268- 141,4,288 

550 DRTR201.79,240,1,96 

560 DRTR169, 80, 141,2,288,96 

578 DRTR238,4,283, 173,4,288, 141 .2,283 

388 DRTR281, 234, 248, 1,96 

598 DRTR169, 233, 141,4,288.96 

680 REM *** TEMP0RISRT10N *** 

618 DRTR169,8, 141,0.192 

628 DATR 169-0, 141,1,132 

638 DATA238, 1,192, 173, 1,192 

648 DATA285, 187, 195,248,3,76,87, 196 

658 DRTA233,8. 132, 173.0, 192 

660 DATA201,60,240,6,32,25,196 

670 DRTR76,32,196,32,183,196,S6 

680 REM »»» RENVOI DE LA BRLLE *** 

690 DRTR32, 100, 197,32,40, 198 

695 IIRTR168,234,234 

708 DRTR201, 5, 240, 16,201,7,240,12 

710 BRTR201,3,248,1,96 

728 DRTR169, 1,141, 2, 192,208.5 



738 DATA169.8.141,2,192 

740 DATA169,1,141,3,192,32,239,195 

750 DATA32, 172, 196,32,219, 196 

760 DATA96,234,234 

770 REM »»» ACCELERATION *** 

780 DATA173, 107, 195,201, 100,240,3 

790 DATA206, 107, 195,96 

800 REM ••» BflLLES RESTANTES *** 

310 DHTA206.4, 192, 173,4, 192 

820 DATH105,47,141,78,4 

830 DATA169,4,141,78,216 

840 DATR169,32, 141,73,4,32, 19, 198 

358 DATH1734, 192, 281,8,248, 1 , 96 

868 DRTH76, 6 1,197,96 

878 REM **» RFFICHROE DU SCORE »»* 

888 DRTR169,0,141,5,192,141,6,192 

898 DRTR141,7,192,141,8,!92 

980 DRTR169.233, 141, 167, 196,36 

910 DRTA173, 5, 132,201.9,240,9 

928 DRTR238,5, 192, 105,49 

930 BATUMI, 39.5.96 

340 DATR169, 48, 141,53,5 

350 DRTA169.0, 141,5, 192 

960 DATA173.6, 192,201,9,240.9 

970 DHTH238.6, 192, 105,49 

980 DATAMl.58,5,96 

998 DRTA169, 48, 141.58,5 

1888 DATR169.8, 141,6, 192 

1818 DATA173, 7, 192,201,9,240,9 

1020 DRTA238,7,192,105,49 

1030 DATR141,57,5,96 

1040 DHTR169, 48, 141.57,5 

1058 DRTR169,8,141,7,192 

1060 DRTA173,8, 192,201,3.240.9 

1070 DRTR238,8,192,105.49 

1088 DRTAMl.56,5.96 

1030 IATA238,32,208,96 

1895 PEM *»* PRPTIE TERMINEE *** 

1188 DATR169,0, 141,21,208, 141 240, 195 

1110 BRTR169,96,M1,126,195 

1120 DATR169.213. 141, 167. 196.96 

1130 REM *** LIGNE *** 

1140 DHTR173, 161.0,281, 1,208,42 

1150 DHTR169.0, 141, 161,0 

1160 DATR169, 160, 157,71,5 

1170 DRTR169.004, 157, 71,217 

1180 DATR233,115, 197,233, 120, 197 

1130 BRTR173, 115, 197,281,92,248,3 

1208 DATA76, 1 12, 137, 32, 179, 197 

1218 DATA169,71,141,115,197,141.120.:9? 

1238 DRTR173- 1,208.201,0,240,8 

1 240 DATA20 1 , , 240 , 4 , 234 , 234 , 234 . 96 

1250 DHTH173, 3, 192,73,1,141,3,192 

1260 DRTR32.239, 195,32, 172,196.96 

1265 PEM **♦ LIGNE OU PRS LIGNE "' ♦** 

1270 DATR32.233.197 

1280 DflTA173,113 197,201,160,240,19 

1290 DRTA169, 160, 141 , 113, 197, 163- 8 

1300 BATUMI. 153, 197, 141,157,19" 

1310 DRTR32. 247. 198.234,234,96 

1320 BHTH169,32141,113,197 

1330 DATA169, 93, 141, 153,197 

1340 BRTR169, 112,141,157, 197 

1350 DATA32, 2, 199,234,234,36 

1360 DATA 173, 38, 288, 96 

1365 REM »»* BONUS «** 

1370 DATR238,9, 192, 173,9, 192 

1380 DRTR281, 1.240, 1,96 

1398 DATA76, 10, 193, 234-234 

1488 DRTR169, 15, 141,21.288 

1410 DRTH233, 6 , 208 • 173, 6, 208, 201 , 235 

1420 BRTR240, 11.233,108,41,234 

1438 DfiTHMl.8,212,234,234,234,96 

1440 DBTR169.7, 141.21,208 

1458 BRTA169.0, 141,9, 192 

1460 DRTRI69, 0,141,8,212 

1470 DHTB169.ee. Ml -6,206,96 

1475 REM *** BONUS HTTEINT *** 

1430 DRTRI73,30.208.281,9.240,1.9e 



1430 DRTA169.50. 141,240, 195 

1500 DHTB169, 23.141. 250. 195 

1516 DBTB169, 6, 141,6,212 

1528 DBTB32.239 195 

1530 BRTH238, 10 132,32,239, 196 

1540 DRTB173,10,192201,10,240,34 

1550 DHTH238.il, 192, 173, 11, 192 

1568 BBTB201,255,240,3,76,79,198 

1570 BRTR238,12,192,173,12,192 

1 580 DHTH20 1 , 25 , 240 , 3 , 76 , 79 . 1 98 

1590 DRTA169,0, 141 12, 192,76,63, 198 

1600 DATA169-7, 141,21 ,208 

1610 DATA169.38, 141,240, 195 

1620 DATH169.23, 141,250, 195 

1630 DHTH169,0,M1,10,192 

1640 DBTB169, 234, 141,6,208 

1650 DBTH173,13.192,2011,240,4 

1660 DBTB238, 13,192,96 

1670 BBTB169,0,M1,13,192,239,251,7 

1 63B DBTB 1 7 3 . 25 1 7 20 1 , 255 240 , 1 - 

1 690 DBTA201 . 25 1 , 240 . 35, 281 , 252 . 240 . 42 

1700 DBTB201, 253, 240, 43, 201. 254, 240, 56 

1710 BRTH36 

1728 BRTH163, 258, 141,251.7 

1725 DHTH169.105.M1.10. 198 

1738 DHTR169. 6- 141.42.208.96 

1735 DATB169,73.141,10,198,96 

1740 DBTA169, 2. 141,42,208 

1745 DRTR169.233, 141,18, 198,96 

1758 BRTR169.7, 141.42,288 

1755 DATA169. 41, 141, 18,138,36 

1768 DATA169, 1,141. 42, 208 

1765 DATA169,09,M1.18.198,36 

1778 DATA163-8, 141,42,208 

1772 DATA169. 106, Ml, 18,198,96 

1775 REM *»» LIGNE SONORE «»» 

1788 DRTRI69.3.141.184, 197 

1790 BHTR169. 0-141. 15, 212,96 

1793 REM »*» LIGNE S1LENCIEUSE »»» 

1800 DHTR169, 1141 ■ 104, 197 

1810 DRTR169.5, 141, 15,212.96 

1315 REM ♦«♦ RETfiRD BONUS *»♦ 

1820 BRTR238. 14. 192, 173, 14.192 

1830 DBTB201,2,240,3,76,12,199 

1348 DBTR169,0.14I,M,192,76,247,197 

1845 PEM #** APAIGNEE *** 

1 850 DRTR173, 161 , 0, 201 , 1 , 240, 1 , 96 

1355 BRTR173, 162. 8,281, 1,240, 1,96 

1360 DBTR173,2.208. 141,8,208 

1865 DRTR169- 60, 141,9,288 

1270 DBTR169, 72- 141.91, 195 

1875 BRTR169, 23, 141,21,288,96 

1335 DHTR236, 9, 208, 173,9,208 

1390 DHTR20 1,250, 240, 10 

1395 DHTR77, 2. 208, 141,8,212 

1910 DHTB32, 188, 199, 96, 169, 7, 141, 21, 203 

1915 DBTB169.34, 141,91, 195 

1920 DBTB169, 0,141,8,212,96 

1930 DBTB192, 18,240.9 

1935 DBTH192,20,240,5,192,22,240,1,96 

1936 DHTB169, 8.141, 4, 212, 169, 0,141,8.212 

1937 DRTR169.16.141.21.208 

1940 BRTR169, 11,141,5,212.169,3,141,1, 

212,169,83,141.4.212,168,0 

1945 BRTR23B, 15, 192. 173, 15,192,281,8, 

248,3,76,153199 

1958 BRTR238, 16, 192, 173, 16, 192,281,0, 

240, 3, 76, 153, 199, 169,0, 141, 16, 192 

1955 DRTR169,e, 141,5,212,76,255, 195 

1960 REM »»» JEU GELE »»* 

1965 DRTR173, 203, 0,201, 4, 240, 1,96 

1970 BRTR172, 161,8, 173,283,8,281,64,248, 

3,76,283,199 

1975 DfiTR173.203.0,201,64,208.3,76,213. 

199,140,161.0,96 

1933 DRTH-1 

2000 FORR=1TO1008 NEXT P0KE54268.8 

2005 Put E=.4237 

2818 P0KEV*21 .0 FORR=1336TO1340 

2020 R»=fi*»-STR«<PEEKtR>-48> 

2030 NEXTS=VAL(A»):SVS58692 

2648 P0KEC8 

2858 IFS>SCTHENPPiNT"Wn *»* VOUS TENEZ 

LE RECORD 1 BRRVOM! ***":SC=S 

2888 PRINTTRB<15)"I»EC0RE "S 

2896 PPINTTRB<15)"«REC0RD:"SC 

2180 GOSUB5800 

2130 J=PEEK<203) IFTI*» , '88B805" 

THENGOSUB6000 G0SUB5015 

2140 IF>4THEN2190 

2158 IFJ=5THEN6588 

2168 G0TO2138 

2198 POKE50046 . 32 : H»= POKEV+21 . 8 

2288 P0KE58168.38 

2216 RESTORE ■ F0RR=1 TO140 ' REHDE NEXT 

2240 P0KE50585.0 POKE50589..0 G0T025 

3008 Kb =16000: REM «>< CLOCHE *»* 

3010 FORR=0TO62 : REHDE : POKEKK*R, E ■ NEXT 

3015 POKEV+42,6 

3020 P0KE2843226 POKEV+6. 184 

3838 DATA8, 32, 8. 8,163,0,0,32,0 

3040 DRTH10, 170, 128,2- 170,0,8, 168,0 

3056 DRTRO, 168- 8,2. 178, 8, 2, 178, 8 

3668 DHTR2. 178,8,2. 178,8, 10. 170, 128 

3070 DRTR18, 170, 128. 10, 170, 128,42, 170 

3080 DHTR160, 170, 170, 168, 170, 170, 168 

3090 DRTR170, 170,168,8,252,8,0,252,8,8 

3100 DRTR48 8 

A SUIVRE... 



Blanche neige el les sept nams, 
cesl bien. Wall Disney aussi, 
Mais agaga gnagnagna, il n'y a 
que des gentils. que des zinlelli- 
genls, que des doux reveurs, 
tous les informattciens sont ge- 
niaux, vous etes mervellleux, 
vous eles formidables. vive Sa- 
balier el accroche-coeur : yen a 
maaaarre ! 

La vie est une vieille pute vi- 
cieuse et ce n'esl pas parce que 
vous tapez cinq minutes par se- 
maine sur voire clavier de 
merde que vous devez occulter 
les realites qui vous entourent. 
La guerre, le sang, linjustice, 
les magouilles, I'horreur sont 
notre lot commun et, quand 
nous respirons, la mort dans 
nos poumons repand sa triste 
manne. Nous nous times 
complices de ces aveuglements 
en vous proposant (imposant ?) 
de niais petils Mickeys prenant 
pour loccasion lapparence dun 
cretin hlppocampe. Comment 
avons-nous pu nous laisser pie- 
ger par cette representation fac- 
tice du monde ou nous vivons ? 
Pourquoi ? Nous avons peu 
d'excuses et nous plaidons cou- 
pable d'avoir, sans le savoir, 
conlribue a votre abrutissement 
par de mornes dessins genera- 
teurs de debilite protonde. C'est 
une erreur impardonnable et |e 
ne sais pas si notre reaction tar- 
dive sera suffisante pour expier. 
Carali est la. en chair el en os 
qui dessine. a cote, qui parle de 
la vie. telle quelle est. Ses des- 
sins, que dis-je, ses Oeuvres 
apportent enfin a cet hebdoma- 
daire le vecu sans i artifice aiie- 
nant des petits dessins soporifi- 
ques qui turent si longtemps sa 
honte. Mais est-ce suffisant, ne 
suis-je pas coupable. trop cou- 
pable ? C'est trop tard, bien trop 
tard, je suis impardonnable, la 
vie ne vaut plus la peine d'etre 
vecue apres cette enorme faute. 
je suis deshonore. je suis un cri- 
minel, aucune autocritique, au- 
cune absolution ne peuvent atte- 
nuer le remord et la honte qui 
hantent mes nuits et minent 
mon moral. Adieu, monde cruel ! 



BANG I 



Gerard Ceccaldi 







(NDLR : Nous avons le regret 
de vous faire part du deces de 
Gerard Ceccaldi. II a mis fin a 
ses jours en se tirant une bade 
dans la tete. Tout ca pour une 
bete histoire de dessins d'hippo- 
campes remplaces par des des- 
sins humohstiques. Mais la lettre 
qu ii a laisseeest assez confuse 
et il semble difficile de connaitre 
les causes reelles de son geste 
desespere Nous presentons 
nos sinceres condoleances a 
ses veuves et a ses nombreux 
enfants.) 

(NDLFDM : Baaaah ! Ch'est de- 
gueulache. je ne viendrai plus 
faire le menache dans cette 
boite. Du Chang, partout ! Enfin. 
ch'est pas plus mai, ch'etait vrai- 
ment un emmerdeur le redact- 
cheur en chef. Tiens, iis ont 
change les dechins. chont plus 
rigolos cheux-la.) 



NDLFDM = Note de la femme 
de menache 



CAP-MAN 



Bien sur, vous connaissez deja ce jeu ! Mais alors quoi, 
M..., cest pas parce qu'il est connu que c est pas bien, 
sans blague.-. 

Cyril SALENC 



jj coil* VAJT Mf'&jx 
QUE oe«K7I/f*^y 




10 REM *.*************»«».**. 

20 REM * * 

36 REM * rAP-MAN * 

40 REM S * 

SC REM * COPYRIGHT IMS » 

60 REM * * 

70 REM * PAR CYRIL SALENC * 

SO REM * t 

90 REM * 20-02-63 « 

100 REM * * 

110 REM mmniiiiuiitirii 

120 CLS 

130 REM «irJ»4»ir;i«miu.i 

140 KEY 139, "SYMBOL AFTER 97"»ChR* 



'EN 



:is> 

150 REM TAPER LP PETITE TOUCHE 
TER' POUR REINITIALI8ER LES CARAfT 
ER6S QUI SONT DEFINIS 
166 REM l. l.l. ....... i.iliir. 

170 MODE 

190 REM 

190 REM ***** CARACTERES >"" 

290 REM 

210 BYMBOL AFTER 97 

22B SYMBOL. 97,6X1 1 ,6X1 1 100.6X1*00* 

0,6X1000000, 1X1000000, 6X10*0800. 6X 

1 00000B0 . fc X 1 0900000 

230 SYMBOL 99, fcXl 1090000, 6X1 11000. 

fcxiee-ixia.txie.tuxie.ixi .1x1 
24e symbol 99, t-xiooeoeeo, 6x100000* 
0, 6x1000000. fcxiooeeee. 6x1000000, 6x 
1 00000. fcxmee.ixn 

230 SYMBOL 100, 1X1 , fcXl , 6X1 0. 6X18 . 6 

xi0.fcxiee.fcxi 1 1080, S.X1 1000000 
26e symbol lei.fcxiieee.fcxieeiee.&x 

1 80091 B,fcxi00901 6. 1.X1 000016. 6xt*i>* 
270 SYMBOL 102,1X10000001 .fcX 10000* 

ei.txi 0000B01. ixieeeen.ixi 9000 10 
Lxieeeeie,fcxieeiee,fcxiieee 

260 SYMBOL 103, fcXlllP0000.ii.Xm0*. 
6X16, 6X1. Wl .6X1 0.1X11106. 1X111000 

290 SYMBOL 104,1X111,6X111000.6X10 

eeeee.fcxie90eeee.Lxi00e0eee<e.xie<-j0 
eee.«.xiii0ee.fcxni 

300 SYMBOL 193.fcXllllllll,6X0.6X0. 

txe.fcX0.fcxe,fcX0.ixiiiiiiii 

3ie symbol 106, txieeeeeei, 1x10006" 

01. 4x19999991, 6x10000661,6x1000000 

1,6x10000001.6x10000001 .fcxieeeeeei 

320 SYMBOL 100,1X9.6X9,6X0,6X0,4X0 

.fcX0,fcX0.fcXlll!llll 

330 SYMBOL 109,6X11111111,6X0.6X8, 

fcxe , fcxe , fcxe , Axe , 1x0 

340 symbol lie.txieeeeeee.fcxiBeeee 

00, fcX 1 0000000 , ix 1 0000000 , ix 1 0000** 

. fcX 1 0000000 , luX 1 0000000 . 4.X 1 0000000 

330 SYMBOL 107,fcX0,iX0,tX0,fcXe,fcXl 

000,6X0. 6X0,6X0 

360 SYMBOL 1 1 1 . 1X1 - 6X1 . 1X1 . 6X1 , -.XI 

,1X1,1X1.1X1 

378 symbol H2.«.xiine0,(,xmiiie. 
txiinie.fcxiii 1.1x11 n.txii 11 i*.".x 
1111116,1x111100 

380 SYMBOL 113.1X11 1 100,fcXll 1 1 11*. 

fcxi 1 1 1 iee, fcxi 1 1 teeee, fcxi 1 1 10000 , tx 
liiiiee.fcxiiiiue.ixiiiiee 

390 SYMBOL 1 14 . fcXl 1000, 1X1 1 '. 1 1 1 * - 

x! 1 in 11 1 .1x1 1 1 1 1 1 11 ,1x111001 U.ix 
1 1 1 ee 1 1 1 . i.x 1 eeee 1 0.1x1 0000 1 
400 symbol 113.6x1099010.6x1006010 
.6x11100111,1x11100111.1x11111111. 
ixniiitiiixii 11110,1x11000 

410 SYMBOL 121.6X11106,1X111110 ■ fcX 

1101011. txi 101011. txinnii . «->■ 1 1 1 1 

lii.txiiiiiii .6x1010101 

420 symbol ns.fcxieeeeei -txiiaeeii 

. CX1110111 -4.X1111H1 .IXlllllC^'ll 

1110.6x11199 

430 SYMBOL 117,1X9,1X0,6X0.1X0,6X1 

11 1 u i.fcxi 11 lie. txi 111 10.6X1 nee 

440 SYMBOL 119,1X0,1X0,6X0,6X0,6X1 

000, txi 1100 txi 1 1119. fcxii i ee 

430 SYMBOL 119. 1X0, 1X9, 1X9. 1X8. 6X1 

000,6X1000.6X1000.6X1000 

460 SYMBOL 120,60.6X1001001,6X101* 

10. fcX*. 6X1 10001 1,6X0, 6X101010. 6X10 

01001 

470 SYMBOL 122,6X0,6X11000.6X11110 

0.LXU 1100, 6X111100. 6X11 1109, 6X1 10 

ee,t.xe 

480 DIM T*Ji<20,23> 

490 MSC-0 

300 Vt-3'PE»3 TA-IFRU-0 PAG-0 PET 

■e.sc»8'CS-e 

sie ink e-eanK 1.2s ink 2,1 ink 3 

,6. INK 4,24'INK 3,4.3'INK €.11 INK 
7,24 BORDER 
320 IF MSO0 THEN G0SU9 «90 
330 REM 

340 REM ***** LRBY. ***** 
350 REM 

366 DATA 1,9.9.9,9,9.13.9,9,9.9.9, 
9.13.9.9.9.9.9.2 

370 DATA 10,11,11,11,11.11.6.11.11 
.11, 11. 11. U.S. 11. 11, 11. 11,1 1.10 
388 DATA 10.26.1,9.2.11,11. 11 1,9 
9, 2, 11.11. 11. 1.9. 2. 2*. 10 
398 DATA 10. II. 3, 9, 4, 11, 5. 11. 3. 13, 
14.4,11.3,11,3,9.4,11.10 
600 DATA 10,11 ,11.11.11,11.6.11 . 11 
,10,10,11.11.6,11.11,11,11,11.10 

610 DATA 10,11,1.2,11,11.11,11,11. 

3,4,11,11,11,11.11.1,2.11,10 

620 DATA 10,11,10.10.11.1.2,11,11. 

11,11,11,11.1.2,11.10.19.11.10 

639 DATA 10.11,3.4.11,3,4,11 1.90 
,2,11.3.4.11.3.4.11,10 

640 DATA 10.11.11,11,11,11.11,11,3 
,9,9.4.11,11,11,11,11,11.11.19 
630 DATA 3, 9. 9. 7. 11. 1.2. 11. 11. II. 
1.11.11.1,2.11,9,9.9.4 

669 DATA 0,11,11.11.11,19.19,11.9. 
9.9.7,11.19.10.11.11.11,11.0 

670 OATA 1,9,9,7.11,3,4,11.11,11. 
1,11,11,3.4,11,8.9.9.2 

680 DATA 10,11.11.11.11 ,11,11,11, 
.9,9.2.11.11,11,11.11,11,11,10 

699 DATA 19. II, 1,2, 11. 1.2. 11. 3. 9,? 
,4,11,1 .2.11.1 .2.11,19 

700 DATA 19.11.19.10.11.3.4,11.11. 
11,11.11.11,3.4,11,19, 10. II 10 
710 DATA 19.11,3,4.11 .11,1111.11 
1.2.11.11,11,11,11,3.4.11 . 1* 

720 DATA 19.11,11. 11,11,11,3,11. 
. 19. 10, II, 11, 3, H. I], 11. ii. n. ie 

739 DATA 19, 11, 1,9, 2. 11, 6, II. 11 
14.2.11,6,11.1,9.2.11,10 

740 DATA 10,26,3,9.4,11 11,11,3.9, 



9.4,11.11.11,3.9,4,26,18 

730 DATA 19. 11. 11. 11, 11, 11-5. II, 11 

,11.11,11.11,5.11,11 ,11 ,11.1! .19 

766 DATA 3,9.9,9.9.9.12.9,9,0.9.*. 

9, 12,9.9,9,9.9.4 

770 RESTORE 360 

7B0 IF TA>8 THEN COl -0 EISE i~0l*2 

790 FOR T-4 TO 24 

890 FOR U-l TO 2A 

810 READ * 

820 T«SC(U.T)»4 

630 LOCATE U. T b-t*VU.T <■ IF b=l 1 

THEN PEN 1 ELSE IF b-26 THEM PFH 5 

ELSE PEN COL 
840 IF t*=«U,T)"0 THEN PRINT " '■ P 
EN 1<G0T0 670 
B30 PRINT CHR9-:b*9^* 
960 PEN 1 
970 NEXT 
660 NEXT 

890 t*V. 11.15>-0 

900 IF TA-1 THEN FOP T*l TO 3'LOCA 
TE T-2PEN 4'PRINT "4" NEXTPEN 1 
910 GDSU8 2600 
920 IF TP-1 THEN LOCATE lt.7 PP1NT 

930 X-ll Y-1S GE-40 

940 LOCATE X.Y'PEN 4'PPINT "P" 

930 G0SU8 2920 

960 REM 

970 REM ***** DEFLACEMENT D" PAC * 

***! 

999 REM 

999 PEN 4'IF JOYfOI-I OP INKEYT0"- 
9 THEN GOTO 1070 

1090 IF JOYf0)-2 OR INKEY'2-8 THF 

N GOTO 1170 

1010 IF JOY'0>-4 OR [NkEY'8>-R THE 

N GOTO 1270 

1020 IF JOY<0>8 OP INKEYa>=9 THE 

N GOTO 1300 

1039 GOTO 1460 

1040 REM 

1038 REM ***** MVT VERS LE HAUT ** 

ft* 

1060 REM 

1070 LOCATE X.YPRINT " " 

1000 Y-Y-l 'IF t*1(X.Y>-0 THEN GOTO 
1120 

1090 IF t**<X,Y>-ll THEN GOSUB 229 

0GOTO 1120 

1100 IF f,jLWX,Y)"2fi THEN PET-0 G0<^ 

UB 2740. GOTO 1120 

1110 Y-Y+l 

1120 LOCATE X,Y PRINT"9" 

1130 GOTO 1460 

1140 REM 

1130 REM ***** MVT VERS LE 8AS »** 

** 

1160 REM 

1170 LOCATE X.YPRINT " » 

1109 Y-Y*l IF t»WX.Y>*0 THEN G'VTrt 

1220 
1199 IF U«K,Y)-1I THEN GOSUB 229 
a GOTO 1228 

1299 IF U«X.Y>-26 THEN PFT-9 ' Gns 
LB 2740 GOTO 1228 

1210 Y-Y-l 

1220 LOCATE X, Y 'PRINT"!-" 

1230 GOTO 1469 

1240 REM 

1250 REM ***** MVT VERS LA GAUCHE 

***** 

1260 REM 

1270 LOCATE X.YPRINT " " 

1280 X-X-1IF X<1 THEN X*20 GOTO I 

330 

1290 IF t*v/x,Yi-8 THEN GOTO 13'<8 

1300 IF t*^CX,Y>-ll THFN GOSUB 22? 
3 GOTO 1330 

1310 IF t«'^CX,Y)-26 THEN PET-A 00^ 

JB 2740 GOTO 1339 

1320 X-X*l 

1330 LOCATE X.Y PRINT "S" 

1340 GOTO 1460 

1330 REM 

1360 REM ***** MVT VERS I A DROITE 

***** 

1370 REM 

1389 LOCATE X.Y PRINT " " 

1390 X-X+I'IF X>20 THEN X"l GOTO I 
440 

1409 IF t#^.<X.Y.-0 THEN GOTO 1440 

1410 IF UMXiYJ-ll THEN GOSUB 229 
0'GOTO 1440 

1426 IF t*!«X.Y>-26 THEN PET-0 G0«. 

UB 2740 GOTO 1440 

1430 X-X-l 

1440 LOCATE X-Y. PRINT "4 " 

1430 GOTO 1460 

1460 IF PAG-1 THEN GOSUB 2740 GOTn 

990 
1470 REM 

I486 REM ***** MONSTRES ***** 
1498 REM 

1399 A-INT(RND*4)+1 
1310 ON A GOTO 1360,1730.1930,2119 
1326 GOTO 990 
1330 REM 

1340 REM ***** MONSTRE 1 ***** 
1339 REM 

1360 IF TAtl THEN GOTO 990 
1370 LOCATE X2.Y2 CA-t«'^(X2. Y2i PE 
N 1 i IF CA-0 THEN PRINT " " ELSE IF 

CA-11 THEN PRINT "k"ELSE IF CA-2 
6 THEN PEN 3^ PRINT "r" 
1589 IF X2>X THEN X2-X2-1GOTO 159 
ELSE GOTO 1610 

1399 IF t«*(X2.Y2>O0 AND UVX2.Y 
2K>11 AMD t«WX2,Y2><>26 THEN X2" 
X2+I 

1699 GOTO 1630 

1610 IF X2<X THEN X2-X2*1G0T0 162 
ELSE GOTO 1630 

1620 IF t**< X2 . Y2 X >9 AND t»S".'X2.Y 
2XM1 AND t«!«X2,Y2X>26 THEN X2- 
X2-1 

1639 IF Y2>Y THEN Y2-Y2-1 EISE GOT 
1669 

1640 IF t*f.(X2.Y2X>0 AND t*-/.'X2.Y 
2X>11 AND t»WX2,Y2X>2« THEN Y2- 
Y2»l 

1S39 GOTO 1699 

1669 IF Y2<Y THEN Y2-Y2+1 FLSF GOT 



X3 AND Y-Y5> THEN GOTO 2350 

1690 PEN 3 LOCATE X2.Y2 PftlNT "■-" 

1709 PEN 4 

1710 GOTO 990 
1720 REM 

1730 REM ***** MONSTRE ? »l" 

1740 REM 

1730 IF TAO THEN 990 ELSE LOCATE 

X3.Y3CA*t»^''X3.Y3) PEN 1 IF rAno 

THEN PRINT " " ELSE IF CR«1! THEN 

PRINT "V" ELSE IF CA-26 THEN PEN 5 

■PRINT "z" 

1760 IF X3>X THEN X3=X3-1 GOTO \T? 

ELSE GOTO 1790 

1770 IF UK<)0>Y3X>9 AND MVxTY 

3)<>11 ONP f« X3.Y3V >2« THEN X3* 

X3*l 

1790 GOTO 1910 

1790 IF X3<X THEN X3-X3*l GOTfl 1«6 

ELSE GOTO 1810 

1800 IF t«^X3,Y3'<>0 AtJD t«VX3.Y 

3X>11 AND t«M(X3,Y3X>2« THEN X3= 

1910 IF Y3>Y THEN V3-Y3-1 EISE GOT 

1940 

1B20 IF t*^(X3,Y3X>0 RHP tlVXT.Y 

3X>11 AND ttV X3.Y3*'>26 THEN Y3- 

Y3+1 

1830 GOTO I860 

IB40 IF Y3<Y THEN Y3-Y1+1 ELSE GOT 

1960 

1958 IF »,»^X3.Y3X>0 AND t»VX3.Y 

3X>11 AND t*>.<X3.Y3X .26 THEN Y3= 

Y3-1 

1968 IF (X-X2 AN[i Y=Y2i OR • y»X3 A 

ND Y"Y3> OR fX-X4 AND Y»Y4 > OP ' M« 

X5 AND Y-Y5J THEN GOTO 2330 

1970 PEN 3 LOCATE X3.Y3'PRINT '■-" 

1690 PEN 4 

1890 GOTO 990 

1900 REM 

1910 REM ***** MONSTRE 3 ***** 

1920 REM 

1930 IF TA<5 THEN 990 ELSE LOrATE 

X4,Y4CA"t*'-« X4.Y4) PEN 1 IF rflaft 

THEN PRINT " " ELSE IF CA-U THFN 

PRINT "k"'ELSE IF CA-26 THEN PEN 3 

PRINT ■'!-' 
1940 IF X4>X THEN X4-X4-I GOTO 19 K . 
ELSE GOTO 1970 

1939 IF t*«(X4,Y4X>0 AND t*^X4,Y 

4X>11 AND t«>IfX4.Y4X>26 THEN X4« 

X4+1 

1960 GOTO 1990 

1970 IF X4<X THEN X4-X4+1 GOTO 198 

ELSE GOTO 1990 

I960 IF t#VX4,Y4X>9 AND t»VX4,Y 

4X>1I AND t«XfX4,Y4X->26 THEN X4- 

X4-1 

1990 IF Y4>Y THEN Y4-Y4-1 ELSE GOT 

2020 

2008 IF t»HCX4,Y4X>0 AND t«5'/X4.Y 

*)<>J1 HHD UHCX4,V4X>2(S THIN Y4« 

Y4+1 

2010 GOTO 2048 

2826 IF Y4<Y THEN Y4-Y4*I ELSE GOT 

2040 

2030 IF t*-1(X4,Y4X>0 AND t**-«X4,Y 

4X>11 AND t*^CX4,Y4X>26 THEN Y4- 

Y4-1 

2040 IF (X-X2 AND Y-Y2 > OP ' X-X3 A 

NO Y-Y3) OR rx-X4 AND Y-Y4 1 OR (X- 

X3 AND Y-Y3) THEN GOTO 2330 

2830 PEN 3 LOCATE X4.Y4' PRINT ■■■-." 

2060 PEN 4 

2070 GOTO 990 

2060 REM 

2999 REM ***** MONSTRE 4 ***** 

2190 REM 

2110 IF TA<7 THEN 990 ELSE LOCATE 

X3,Y3'CA-t«VX3.Y5i PEN 1 IF CA-0 

THEN PRINT " " ELSE IF CA-11 THEN 

PRINT "k"'ELSE IF CA-26 THEN PEN 1 

.PRINT "z" 

2120 IF X5>X THEN X3-X5-1 GHTO 213 

ELSE GOTO 2130 

2138 IF tj*<X3,Y5">0 AND t»'//x3.Y 

3X>11 AND t#5:'X3,Y3X^26 THFN "3* 

X3*l 

2140 GOTQ 2170 

2130 IF X3<X THEN X3-X5*l GOTO 216 

ELSE GOTO 2170 

2160 IF t*«(X5,Y3X>0 AMD t*VX5.Y 

3XM1 AND %*V.t X3-Y5X »26 THEN X5= 

X5-1 

2170 IF Y5>Y THEN Y5-Y5-I ELSE GOT 

2200 

2199 IF t#WX5.Y3X>9 AND t»'«X5.Y 

5X>11 AMD t#«'X5.Y5 .026 THEN Y-;-- 

Y5+1 

2199 GOTO 2220 

2209 IF Y5<Y THEN Y^-Y3*l FLSF GOT 
2229 

2210 IF t»k(X5.Y5X>0 AND t*V;fX5.Y 
5X>1I AND t«VX5.Y5)' >26 THEN Y e .= 
Y5-1 

2220 IF (X-X2 AND Y-Y2) OP fX^XS A 
ND Y-Y3) OR fX-X4 AND Y-Y4 > OP ' X= 
X3 AND Y-Y3> THEN GOTO 2330 
2239 PEN 3 LOCATE X5.Y3 PRINT "V 
2249 PEN 4 
2259 GOTO 999 

2269 REM 

2270 REM ***** SCORE ***** 
2289 PEM 

2299 ta=«X,Y>-0 

2380 SOUND 1.180.5 

2310 SC-SC-H CS-CS+1 

2320 PEN 1. LOCATE 13.2 PRINT SC PE 

N 4 

2339 IF CS-I97 THEM LOCATE X.Y PRI 
NT" "GOSUB 2370 FOR T-l TO 108* N 
EXTCS-0 PAG-0'TA-TA*1 INK 2. I TFM 
-0'IF TA/2-INT(TA/2) THEN 569 ELSE 

GOSUB 3318 GOTO 569 

2340 RETURN 

2330 IF t«--;fX.Y)-ll THEN 5C-SC*!'L 

OCATE 13.2.PHIMT SC 

2360 GOSUB 2370 'GOTO 2459 

2379 IF X2<>9 AMD Y2' >0 THEN LOCRT 
E XZ.YZ'IF t«WX2,Y2)-ll THEN PRIN 
T "k" ELSE IF *.iVX2.Y2)-26 THEN P 
EN 6'PRINT ~X" ELSE PRINT " " 

2380 IF TA>-3 AND X3< >0 AND Wvfl 
THEN LOCATE X3.Y3IF t#V.'X3, Y3 >-l 1 

THEN PRINT "k" ELSE IF t»VX3.Y3t 
-26 THEN PEN 6 PRINT "I" ELSE PRI 



2490 IF TAW AND X3' >0 AMD Y5' >0 
THEN LOCATE X3.Y3 IF t*«'X5. Y5 i-I 1 
THEN PRINT "k" ELSE IF t»X(X3,Y3' 
-26 THEN PEN SPRINT "i" ELSE PRI 
NT " " 
2410 RETURN 
2420 REM 

2430 REM ***** PERTE D'UN PAC »*»* 
* 

2449 REM 
2459 PEN 4'FOR T-115 TO 119 

2469 LOCATE X.Y. PRINT CHR*' T > 

2470 SOUND l.GE.S 

2480 FOR 1-1 TO 5'SOUND LGE-5 GE' 

GE+1>NEXT 

2499 NEXT 

2300 LOCATE X.Y PRINT "x" 

2510 SOUND 1,38.50 

2520 FOR T-l TO 50' NEXT 

2530 PEN 1 

2340 FOR TU-1 TO 300 NEXT 

2330 LOCATE X.Y PRINT " " 

2360 VI-VI-1 PE-PE-1 

2379 IF V>0 THEN GOSUB 3010 

2380 LOCATE PE, 2 PRINT " " 
2590 GOTO 939 

2609 REM ***** MUSI QUE • tut 

2610 RESTORE 2629 

2620 DATA 40, 47. 36, 40. 47. 5K. 8. 71 .0 

2630 DATA 36, 45.50. 36, 45. 30.0,67. 8 

2640 DATA 40,47.56.40.47.56.* 

2630 DATA 56,45. 42 49.38 

2660 FOR T-l TO 30 

2670 READ A 

2690 SOUND 1.A.12 

2690 NEXT 

2790 RETURN 

2710 REM 

2720 REM ***** UNE SUPER PASTILLF 

AVALE ***** 

2738 REM 

2740 IF PET«1 THEN GOTO 2790 ELSE 
SOUND 1 , 1 00, 5 ■ tiW X • Y >«0 SC-SC *3 C 
S-CS*1 'GOSUB 2320 PET-I 'PAG-1 TEM- 
0INK- 2,1 INK 6,11 PEN 6 IF V2' ■* 
AND YO0 THEN LOCATE X2.Y2 PRINT " 

2739 IF X3<>9 AND Y3O0 AND TA>? T 
HEN LOCATE X3.Y3 PRINT "y" 

2760 IF X4O0 AMD Y4O0 AND TA>4 T 

HEN LOCATE X4,Y4'PRINT "a" 

2770 IF X3O0 AND Y9<>* AND TA>* T 

HEN LOCATE X5,Y5> PRINT 'W" 

27S0 PEN 7 

2790 REM 

2800 TEM-TEM*1IF TEM>60 THEN INK 

6,6.11'INK 2,1,14 

2810 IF TEM-00 THEN TEM-0.INK fi . 1 1 

'INK 2.1 PAC-8. PET-9 GOSIJB 2870 GO 

SUB 2920^ RETUBH 

2820 IF X-X2 AMD Y-Y2 THEN SOUND 1 

,39,30SC-SC+I00.X2-0 Y2-9 PEN I L 
OCATE 13.2'PRINT SCPEM 7 

2839 IF X-X3 AND Y-Y3 THEN SOUND I 
,30,30'SC-8C+109X3-0.Y3-0.PEM 1 L 
OCATE 13,2'PRINT 9CPEM 7 

2840 IF X-X4 AND Y-Y4 THEN SOUND 1 
.30,38'SC-6C*100.X4-0Y4-9'PEN 1 L 

OCATE 13,2'PRINT SC'PEN 7 

2939 IF X-X3 AND Y-Y3 THEN SOUNT- 1 

,30.30.SC-SC+!90X3-0Y5-0 PEN I L 

OCATE 13,2'PRINT SC'PEN 7 

2860 RETURN 

2079 IF X2-0 AND Y2-9 THEN GOTO 28 

88 ELSE LOCATE X2.Y2IF t*VX2,Y?> 

•11 THEN PEN 1'PRINT "k"ELSE IF t 

*WX2,Y2)-26 THEN PEN 6'PRINT ";" 

ELSE PRINT " " 

2680 IF X3-0 AND Y3-0 THEN GOTO 28 

90 ELSE LOCATE X3.Y3IF t*5-/X3, Y3> 

-11 THEN PEN 1'PRINT "k"-ELSE IF \ 

«WX3.Y3)-26 THEN PEN 6 PRINT "1" 

ELSE PRINT " " 

2990 IF X4-0 AND Y4-9 THEN GOTO 29 

00 ELSE LOCATE X4.Y4 IF tiVX4 Y4> 

•II THEN PEN 1 PRINT "K" ELSE IF * 

*M(X4,Y4)-26 THEN PEN 6'PRINT "i H 

ELSE PRINT " " 

2909 IF X3-8 AND Y3-0 THEN GOTO 29 
10 ELSE LOCATE X3,Y3IF t»VX5-Y5' 
•11 THEN PEN 1 PRINT "k".ELSE IF t 
«5iCX3.Y3)"26 THEN PEN 6>PRINT "z" ■ 
ELSE PRINT " " 

2910 RETURN 

2920 X2-0 1 Y2-0 X3-0 Y3-0 ' X4-8 1 Y4-0 
' X3-0 Y3-0 
2930 PEN 3 

2948 IF TA>9 THEN X2-2 Y2-23 LCTAT 
E X2.Y2.PRINT '■»•' IF TA*2 THEN X3- 
19Y3-3L0CATE X3.Y3 PRINT "«"X2- 
2 ■ Y2-23 ' LOCATE X2.Y2PRINT "s."'IF 
TA>4 THEN X4-2 ' Y4-3 ' LOCATE X4.Y4'P 
RINT "»" X2-2Y2-23. LOCATE X2.Y2 P 
RINT "»"'X3-19'Y3-3L0CATE X3.Y3 P 
RINT "x" 

2 q-,u IP TP.,6 THFN X^-19 Y1-2'> LHCR 
TE X3,Y3PRINT "w"' X4-2 Y4-3 LOCA 
TE X4,Y4 PRINT "w" X2«2 Y2-23 LOCA 
TE X2.Y2 PRINT "*" X3-1* Y3-5 LOI'A 
TE X3,Y3'PRINT "w" 

2969 PEN 1 

2970 RETUR'j 
2989 REM 

2999 REM ***** PERDU ***** 
3999 REM 

3910 FOR T-l TO 1999 MEXT 
3920 CLS'CLG 

3939 IF SO-MSC THEN GOSUB 3169 

3940 PEN 3'LOCHTE 4.2 PR[NT"MEILLF 
UR SCORE" 

3930 PEN 3'LOCATE 9,3 PRINT MSC9 

3060 PEN 1 LOCATE 7.7 PRINT MSC 
3070 PEN 6'LOCATE 6, 19PRINT"V0TRE 
SCORE" 
3988 PEN 1' LOCATE 7.1? PRINT SC 

3099 PEN 1 'LOCATE 1 .20' INPUT "UNE A 
UTRE PART IE ";Ai 

3109 IF A«-"0" THEN CLS GOTO 50* 

3110 IF A9«"N" THEN CLS END 
3120 GOTO 3090 

3130 REM 

3140 REM ***** SCORE BATTU ***** 

3139 REM 

3169 CLS'PEN 3'PRINT" FELICITAT 

ION" 



3170 PRINT PRINT PRINT PRINT 

3180 LOCATE 8, 7 PRINT*'A" . PEN I-PR 

INT"AA" 

3199 LOCATE 1 . 13 PRINT"MANETTE EN 

HAUT A->2" 

3299 LOCATE 1,19 PRINT"MANETTE EN 

BAB Z->A" 

3210 LOCATE 1.24PRINT"TIREZ POUR 

VALIDER" 

3229 MSX-8 . LE-63 . MSY-0 

3230 PEN 3 

3240 IF JOY'0>"1 OR INKEY<0>=0 THE 
N FOR H-l TO 100. NEXT. LE-LE+1 ' IF L 
E-91 THEN LE-63 LOCATE MSX.7'PRINT 

CHR9CLE> ELSE LOCATE MSX.7.PRINT 
CMRI>: LE ) 

3230 IF JOY(0'-2 OR INfEY(2>-0 THE 
N FOR H-l TO 100'NEXT'LE-LE-l IF L 
E-64 THEN LE-90 LOCATE MSX,7'PRINT 

CHR«'LE> ELSE LOCATE MSX.7PRINT 
CMR4( LE ) 

3260 IF JOYf0)-32 OR JOY--0>-16 OP 
INKEYC9>0 THEN MSY»MSY*IIF M9Y< 4 

THEN FOR H-l TO 300 NEXT' CH<MSY>» 
LE LOCATE MSX.7PEN 6 PRINT CHRVL 
E) MSX-MSX*] 'LOCATE MSX.7 PEN 3 PR 
INT"A"'LE-65 

3270 IF MSY-3 THEN M^C*=CNPir GHf ] ■< 
>+CHR«' GNi 2 > >*CMRi'! GM( 3 > ^ CLS ' MSC = 
SC' RETURN 
32B0 GOTO 3230 
3290 END 
3390 END 
3310 REM 

3320 REM ***** INTERMEDE ***** 
3330 REM 

3340 RESTORE 3450 
3330 UINDOU 1.20,4,24 
3360 CL9 

3370 FOR T-l TO 599 NEXT 
3390 INK 6.11 

3399 LOCATE 4,12 PEN 3PRINT"i" 

3400 FOR T-15.6 TO 4 STEP -9.4 
3410 LOCATE T.12'PEM 4'PRINT > '• , 
■PEN 3'PRINT"!. " 

3420 READ A 

3430 SOUND 1.A.I2 

3440 NEXT 

3430 DATA 40.47.36,40,47,36,0.71.9 

3460 DATA 36.43,30.36.45-30.0,67,6 

3470 data 40. 47. 56,40,47, *)S. a 

3499 DATA 56.45-42,40.38 

3490 TNK 4,24, 15. FOR T-l TO 899'NE 
XT INK 4.24.REST0RE 3450 

3500 FOR T-4 TO 15.6 STEP 9.4 

3519 LOCATE T, 12 PEN 4 PRINT *' 9" 
PEN 6 PRINT " «■' 

3520 READ A 

3330 SOUND 1.A.12 

3540 NEXT 

3339 CLS 

3360 UINDOU 1,20.1.23 

3370 FOR T-l TO 598 ■ NEXT 

3380 RETURN 

3590 REM 

3600 REM ***** REGLE DU JEU ***** 

3610 REM 

3629 PEN I 

3630 PRINT. LOCATE 3,2'PRINT"BIENVE 
NUE".PEN 3'LOCATE 5,3 PRINT" ■ 

3649 PRINTPRINT'PRINT'PRINT 

3650 PEN 1 

3660 PRINT'-VOULEZ VOUS LA REGLEPU 
JEU <0'N> " 

3670 A»-UPPER»( INKEY9) 
3699 IF A»» H " THEN 3679 
3699 IF A9<>"0" THEN CLS'LOCATE 4 
12'PRINT"B0NME CHANCE". FOR T-l TO 
1090'NEXT'CLS' RETURN 
3799 CLS 

3710 PRINT" PAC -MAN" ■ PEN 3'PR 
INT" «*«***" 
3720 PRINT'PRINT. PRINT 
3730 PEN 1 
3740 PRINT"V0US ETES - "iPEN 4'PR 
INT"4"'PEN 1 
3730 PRINT' PRINT 
3769 PRIMT-ET VOUS ETES CHASSE PAR 
■ "' 'PEN 3'PRINT"s."'PEN 1 

3779 PRINT'PRINT PRINT 

3780 PRINT-LE BUT DE CE JEU ESTDE 
MANGER LE PLUS DEPASTILLES k" 
3799 PRINT"SI VOUS MANGEZ UNE UNE 

PASTILLE COMME CA ' ";.PEN 3'PRI 
NT"r".PEN 1 PRINT-PENDANT OUELQUE 

3999 PRINT-TEMPS, VO<JS P0URE2 MAI 

GER LES GLOUTONS." 

3610 PRINT-PRINT" TAPE? UNE TOUCHE 

3929 IF INKEY9-"" THEH 3829 

3639 CLS 

3949 PEN 3' PRINT"-". 'PEN 1 PRINT-A 

U TABLEAU 1 ET 2" PRINT"IL Y AURA 

1 GLOUTON" 

3B5B PRINT'PRINT 

3869 PEN 3'PRINT"-") PEN 1 PRINT"A 
U TABLEAU 3 ET 4" PRINT"IL Y AURA 

2 GLOUTONS" 

3870 PRINT 

3889 PEN 3PRINT"--i PEN PPtlNT-fl 
Li TABLEAU 3 ET 6"'PRINT"IL Y AURA 

3 GLOUTONS" 

3899 PRINT 

3999 PEN 3 PRINT"-"; PEN I PRINT"A 
U TABLEAU 7 ET 8"PRINT"IL Y AURA 

4 GLOUTONS" 

3918 PRINT'PRINT'PRINT 
3929 PEN 3 PRINT"-", 'PEN IPRINT"E 
T A PARTIS DU 8 . LE" ■ PRINT"LABYRIMT 
HE SERA 
VISIBLE. " 
3939 PRINT 

3949 PRINT" TAPE2 UNE TOUCHE " 
3939 IF INKEYi-"" THEN 3939 
3969 CLS 

3978 PRINT-CE JEU CE JOUE AVEC LES 
TOUCHES DU CURSEUR OU AVFC 

LE JOYSTICK." 

3900 PRINT PRINT PRINT"SI VOUS BAT 
TER LE MEILLEUR SCORE VOUS PCHJRE 
Z IN9CRIRE VOS INITIRLES A L'AIPE 

DE LA MANETTE OU DESTOUCHES DU CU 
RSEUR POIJR VALIDER TIRER OU TAPE 
R LA TOUCHE 'COPY'." 
3990 PRINT'PRINT'PRINT" TAPE2 UNE 
TOUCHE" 

4000 IF INKEY*-"" THEN 4998 

4018 CLS GOTO 3628 # 
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Un docteur demoniaque vous a pris pour cobaye dans 
son sinistra etablissement. En ce lieu ou I'horreur 
guette chacun de vos pas, la quete dun antidote et la 
recherche de la sortie vous reservent bien des angois- 
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ERRATUM SUR T07 
WORP MASTER 

Un probleme compression est 
la cause de la disparltion des 
Tins des lignes 50 et 60: les 
voici dans leur integrate. De 
plus, vous aviez sans doute 
complete la procedure de 
sauvegarde bmaire comme 
suit : 



50 C = 7:LINE<B,99W320,99>, !NT(D*. 6> + l :F 

ORN=8T07:COLORN,C:LOCATEU, 12: PRINT "CHAL 

LENGE":C=C-I:NEXT:LINE(8,99)-<328,99),IN 

T D* . 6 > + l : LOCATE 17,17: C0LOR5: ATTRB, I : PR I 

NTD:ATTRB8,8:PLAY"T504L12FASO*LA*PL24S!L 

9LA*L3PL9SO*FARE*D0L12REtPFA":8=6:SC 

14-SltSI-lMM 

60 B*="":B=B*1:0NB GOTO220, 490, 438,498,3 

08, 490, 566, 436, 226, 46 
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£3656 IFP=17ANDREP*O , N-THENGOSUB20260:G 
O7O23040ELSE31700 

23B60 IFREP*="E"THEN3853BELSEIFREP*=-N-T 
HEN38560ELSE23040 

23108 IFL5«8THEN231£0ELSEIF.vu=3THENGOSUB 
22000: COTO23120 
23118 G0SUB21468 

23128 G05UB26eee:LOCATE8 f 22:PRINT'I1 r>'e 
st pas la' '-:PLAYPP*, 

23138 G0SUB25588: IFREP*="O"THEN30528ELSE 
IFREP*="E"THEN3653eELSEIFREP*="N*THEN365 
4OELSEGO5UB20208:GOTO23136 
27580 GOSUB 28888: LOCATE 8, 26: PRINT-F0RI 
=QT022:READN:PR1NTCHR* <N> : NEXT I - : PRINT'D' 
ATA65. 78, 84, 73, 32. 75, 88, 98, 32, 84, 65, 88, 6 
9.98,-32,52,71,72" 

23516 LOCATE 0, 23: C0L0R4:PRINT"Ter»ine<0 
-N)";:INPUTZ*:IFZ*=-"THEN23518ELSEIFZ*<> 
"O"THEN23510 

23536 G0SUB25586: IF REPtO "S"TH£NGOSUE20 
206:GOTO 23536ELSE3I818 

£4806 B0XF<279, 126 --(250, 183 j. -7:B0XF' 41 
, 12fc)-<78,183>,-7:PSET(262,101),0:RESTOR 
E 24060:FOR 1=0 TO 23:READ A,B:LINE-< A,B 
<.0:NEXTI:PSET<58. 101 ',0: RESTORE 24060: F 
'OP 1=8 TO 23IREAD A, 8:LINE-<320-A, B>,0'.N 
EXTI 

24010 PSET<258. 115',8:F0R 1=1 TO 18:READ 
h,B:L1NE-(A,B>:NEXT I=PSET<62, 115), 8: RE 
STORE 24070:FOR 1=1 TO I0:PEAD A,B:LINE- 
(326-A,Bj,BiNEXT I 

24030 B0XF<251, 186>-'25£, 107 > , 4: B0XF<256 
. !B6>-<257,107),4:BOXF(69. 107>-<68, 108 >, 
4:B0XF<64, 187)->63, 188),4:PSET<254, 1I8>, 
0:PSET<66, 1 10>,0: LIKE* 255, 1 1 1 >-<253, III) 
,0:LINEC65,1I1)-C67, 111 ),0 
24046 RETURN 

24060 DATA 281,86,270,81^276,68,258,60,2 
75,61,281,66,281,86.287.97,281, 103,285, 1 
07,279,126,275,126.277,120,273, 119,271, 1 

24.268. 124.278.118.267. 117.264. 126.261. 1 
26,264,116,268,128,258, 120,261, 115 
24078 DATA 251,115,247,108,250,185,248,9 
7,252,101,258, 181,262,97,259, 165,261,188 
,258, 115 

24100 IF(VU=1ANDP=19)0R<VU=2ANDP=3)THENL 
0CATE5,9:PRINTGR*c2>:LINEl36,78>-c36,86> 
,0:LINE-<44,83).0:LINE-M4,67).0:LINE-<3 
6, 70), 0: RETURN 

24110 1FVU=3THENL0CATE35,9:PRINTGR*<£):L 
INE'276,86>-<276,7e>,0!LIN£-<284,73>,0:L 
1 NE-<284, 89 >,0= LINE- (276, 86 ),0: RETURN 
24120 L0CAT£28,6:PRINTGR«<2):B0X< 155,49) 
-< 164.58>,6:RETURK 

24200 FOR 1 = 1 TO 2: BQXF(88,41+24*<. 1-1 > >- 
<239,43+24*<I-I)).5:NEXT I 
24218 FOR W-l TO 2:F0R QH=1 TO 20:LOCATE 
QM*9,4*3*(U-l):C0L0RINT-;RND*7>*i:PRINTB 
0»<INT(Rt(P»3)*I):NEXT0M:NEXT U 
24220 RETURN 

24300 IFAL = 8THENB0XF(XQ*8- s 1,Y0*8 + l)-<<XO 
♦2)*8+l.<Y0-t>*8-l),7:F0R 1=8 TO 5:LINE( 
XO*8*I*3,Y0*8)-(XO*S+I*3, Y0*8-7>,-4:PSET 
<X0*8*I*3,YO*8-8),-2:NEXTi:R£TURNELSERET 
URN 

24468 IFCD=IANDP=28THENRETURNELSEIFCA=1A 
NDP=17THENRETURN 

24418 LOCATE XO,Y0:IF P=28THENC0L0R3ELSE 
COL0R7:PRINTCL«: RETURN 

24426 LOCATE XO,YO:IF P=26THENC0L0R3ELSE 
C0L0R7 

24438 PRINTCL*:C0L0R8:RETURN 
24588 RESTORE 24560:FOP 1=0 TO 28:READ A 
,B.C,D,EiBOXF<A,B)-«C,D),E!NEXT 1 
24510 PSET(9,8>CR*< 1 1 >, 6: PSET> 8, 9>GR*t II 
>.B 

24528 FOR 1=8 TO 9:REAI> A, B, C, D: L INE< A,B 
)-CC,D),-3iNEXTI 

24538 COLOR 3,8:F0R 1=1 TO 6:L0CATE 14 + 1 
,8:PRINTGR*<13):NEXT Is FOR 1 = 1 TO 8:L0CA 
TE I3+I,9:PRINT,GR*<14>:NEXTI 
24540 80XF<136,62'-< 151, 67>,3:LINE( 128,6 
8)-'112,74),-4:LINEa67,68)-U75.74),-4 
24556 FOR NL=1 TO 12:L1NE<89*NL, 67W79* 
NL,77),-8:LINEC184*NL,67)-<194*NL,77 ,-8 
:NEXT NL:C0L0R6,6:RETURN 

24566 DATA 64,88,255,111,0,72,72,255,79, 
6, 88, 64. 255, 71, 8. 21 6, 32. 255. 63,8, 128,38, 
159.61,0,138,46, 157,59,-4,64,86, 111,111. 
2,67,83, 108,108,-1,67,94, 188,97,2,82,87, 
89,89,2,82, 181,89, 163,2 

24578 DATA 112,80,191.83,2,195,80,231.11 
1.2, 195,83,228, 188,-1. 195,94.228,97,2.20 

8.87.215.89.2.208. 181.215.103.2.240.39.2 
47, 4 1.2, 240, 59, £47, 61, 2, 240. 79, 247, 8 1.2. 
240.99,247, 101,2 

24588 DATA 216,64,231.79,231,79.231.32,1 

12. 1 II. 122,95, 122.95. 181,95, 181.95. 181,8 

3. 181.95, 191, 111, 122,95, 122,83,232,58,25 

5.50,231,78,255,70,232,98,255,90 

24608 ON VU GOSUB ,24620,24640,24660 

24618 RETURN 

24628 FOP 1=8 TO 2:F0R J=8 TO 2:B0XF<316 

-19* J. 131-15*J-38*I>-'292-19*J, 129-15»J- 

38tn,0:LINE<291-I9*J,130-15*J-30*I>-<28 

6-19*J, 13B-15»J-36*l>,8:NEXT JJNEXT I:RE 

TURN 

£4640 FOR 1=0 TO 2:FDR J=0 TO 2:LINE<120 

+40* J, 40+15*1 ) -<110*50*J, 50+ 15*1 >,0: LINE 

< 120+40* J,41 + 15*I)-a87*53*J,53+15*I>,6: 

LINEa20+40*J,42+15*I)-ai0+58*J,58+I5*I 

'.0:NEXTj:NEXT I:RETURN 

£4666 FOR 1=0 TO 2:F0R J=8 TO 2:B0XF<4+1 

9*J, 131-15*J-30*I"'-<28+19*J, 129-15*J-36* 

1 •, 8: LINE (29* 19* J, 136- 15*J-36*I > -(35+19* 

J, I36-15*J-36*I>,e:NEXT j:NEXT I:RETURN 

24706 IFL21=0ANDVU=2THENBOX<144,46>-<175 

,95>,0tRETURN 

24710 IFL21=8ANDVU=3THENLINE'"31, 132)-'31 

,47>,6:LINE-<65,47i.8:LINE-<65, 107), 6: RE 

TURN 

24728 IFVU = 2THEN80XFa44,48>-<175.96).7: 

RETURN 

24730 Y=132--LINE<31, 132 >-< 31, 47>,0:LINE- 

i65,47),6:LINE-<65, 187) . 8:F0RX=32T063: L I 

NE<X,48)-(X,Y),7:Y=Y-.8:NEXTX:RETURN 

24886 B0XFU28.48'-' 191, 168), 0: B0X( 1 32, 4 



3.-' I58,97),-3:BOX<rt62,43)-tl88,97),-3:R 
ETURN 

24988 IFVU=4THENPETURN 

24905 IFVU=2THENBOX(I43.39)-(176,96),0EL 
SELINE(31, 132)-<:31,47>,0:LINE-(65,47>,0: 
LINE-<65, I07),0:GOTO24925 

24910 IFL21=!THENBOXF(144,40>-<I75,95>,6 
: RESTORE 24960: COLOR?: FORI=0TO10: READA, 8 
,C:LOCATEA,B:PRINTCHRKC):NEXTI:COLOR6, 7 
:FORI=0TO5:READA,B,C:LOCATEA,B:PRINTCHRf 
<C):NEXTI:RETURN 

£4920 RESTORE24940:FOR 1=1 TO 15:READX,Y 
:LINE-(X, Y>, 0: NEXT l: RETURN 
24925 IFL21=6THENREST0RE24935: F0RI=8T014 
:READX,YJLINE-<X,Y):NEXTI: RETURN 
24930 Y=I13:FORX=59TO35STEP-i:LINE(X,40> 
-<X,Y),6:NEXTX:RESTORE24980:COLOR7,6:FOR 
I=0TOll: READA, B, C: LOCATEA, B: PRINTCHRStC) 
:NEXTI:C0L0R6, 7: FORI =8T08: READA, B,C:L0CA 
TEA.B:PRINTCHR<(C>:NEXTI:COLOR0,6:RETURN 
24935 DATA50,10?,46, 122,31,116,46,80,31, 
74,34,64,31,47,42,56,50,47.55,47,65,47,5 
4,64,65,74,58,88,65,187 

24940 DATA 156,90,162,86,175,95,168,74,1 
75,58, 165,50,175,40,160,44,144,40,150,60 
■ 144,56,152,70,144,80, 148,82, 144,95 
24960 DATA 18,5,138,19,5,127,28,5,148,21 
.6, 139,21,7, 138,21.8,139,21.9.138,21, 18, 
139,21,11,127,26,11, 138, 19,6, 138 
24970 DATA 16,6,138,18,7,139,18,18,138,1 
8.11,139,19,11,148,21,5,139 
24980 DATA 4,6,138,5,6,127,6,6,140,7,7,1 
39,7,8, 138,7,9, 139,7,10,138,7,11, 139,7,1 
2.127,5,7,138,4, 14,139,4,15,127 
£4996 DATA 4,7,138,4,8,139,4,11,138,4,12 
.139.4,16,139,5, 15, 139, 6, 14, 139,7, 13, 139 
.7,6,139 

2^580 GOSUB £8800:COLOR 0,6:LOCATE 0,22, 
0:PRINTOUE FAITES-VOUS MAINTEHANT"; : INP 
UT REP*:RETURN 

27866 CLS: LOCATE*. 1 8, 8: PRINT'Do>««age, vo 
us etiez bien S9»pathique' M -: G0T045138 
29800 SCREEN0, 0,0: COLOR 6:ATTRB 1,UL0CA 
TE 9,1,0:PRINT-VOCABULA1RE*:ATTRB 8,8 
£9020 RESTORE 48000: FORM=1T06: READ R1S(U 
':01I=LEFT»(R1CU), 1 ) : 02«=RIGHT»<R1 1< U) , 
LEN<Rl*tN))-l) 

29838 IF H<5THENLOCATECM-l)*18,3:C0L0Ri: 
PRINTQ1«;:COLOR5:PPINT02«ELSELOCATE':H-5> 
«15,4:C0L0Ri:PRINT01»::CDLOR5:PRINT02l 
29848 NEXT U 

29845 LOCATE 4,6:C0L0R 6: PRINT-ACTIONS - 
29850 FOR H=l TO li:READ ACKU) : Olf =LEFT 
• «AC«(U),3>:02»=RIGHT*(AC«':M>,L£N*ACt<M) 
)-3) 

29060 LOCATE 3,M+7:C0L0R 1 :PRINTOU; :COL 
OR 5:PRINTQ£S 
29070 NEXT u 

29075 LOCATE 2B,6:C0LOR 6: PRINT-OB JETS' 
29888 F0RM=1T013:READ OB*CM):01«»LEFT J(0 
B*<H>,3):Q2»=RIGHT*'0B*(H),LEN(0B*(M>'-3 

29098 LOCATE 26,U+7:C0L0R 1 : PRINT01*; : CO 

LOR 5:PRINTQ2f 

29108 NEXT M:L0CATE8,21,8:COLORl:PRINT-D 

OR*: :C0LOR5: PRINT "EE -; :C0L0R1 : PRINT 

"ARC";: COLORS: PR INT -ENTEE' 

29118 COLOR 6:L0CATE8,23:PRINT-Pour rewe 

mr dans la piece, tapcz <C> ":Q«=INICEYf : I 

F 6S»'- OR B*0-C- THEN 29110 ELSE CLS:S 

CREEN0,6,0:GOTO 505 

30200 IFREP«*"E"THENP=P+l:VU=I:G0T0585 

38218 IF*EP*-"O"THENGOSUB25580: IFREP«=SO 

f(4)THEWP-P+12iVU=i:GOTO505ELSEIFREPt="N 

■THEN3e226ELSEIFREP*=-E-THEN362eeELSEG0S 

UB20206:REP*=*O*:GOTO38210 

30228 IFREP»=*N'THENP=P*4:VU=4:GOT0585 

30230 GOSUB26200: GOT 0580 

30300 IFREP*<>"N"ANOREP«<>*E*ANDREP«<>-0 

"THENG0SUB2B28B: GOT0588 

36310 IFREP»»'0"THENP=P-i:VU=3:G0T0585 

38328 IFREPS="E'THENGOSU825580: IFREP»=*0 

•THEN38310ELSEIFREP*="N'THEN36338ELSEIFR 

EP$=S0<< I >THENFORNO=1TOI0: PLAY'DO" :NEXTN 

ft:HA=i:REP«=-E":GOTO30328ELSER£P*=-E-:GO 

SUB20200:GOTO30326 

30325 IFP3=1THENP=P+4:VU=4:GOTO505 

30330 G0SUB255B8: IFREP«=-0-THEN38318ELSE 

IFREP*=-£-THEN30326ELS£IFREPf<>SO«(7)THE 

NGOSUB20200: GOT036338 

38340 IFCA=0ANDCD=8THENGOSUB20000: LOCATE 

0.22:PRINT-Allons.. . uous n'auez pas de e 

lefi I i .-:PLAYPP*:GOTO30330 

30350 IFCA*0ANDCD=1 THENCCL*=-DOR* : GOTO30 

370ELSEIFCA=1ANDCD=0THEN30390 

36366 GOSUB20000:LOCATE0, 22: PR INT -Laquel 

U"! :INPUTCCL« 

38370 IFCCL*<>LEFT$.CC«U),3)THENLOCATE0 

,£2:PRINT"N'insistei pas ce n'est pas la 

bonne' « ":GOTO38330 
30380 IFCA-0THENLOCATE0,22:PRINT'Vous n' 
auez pas cette c lef ' ' ' ": GOTO30330 
30390 GOSUB22000:PLAYPP«:P3=i:P=P*4:VU=4 
: GOT 0505 

30500 IFREP*<>S0«<6^THENIFLEN<REPf><:iTH 
ENGOSUB28200: GOTO500 

38510 IFREP$=S0S(6>ANDAL=ITHENL5=i: GOSUB 
20B00:GOTO585ELSEIFPEP*=SOSt6)THENGOSUB2 
8200:COTO588 
38520 IFREP»=-0-THENCLS:FINS=-EriPALE SUR 

t'ES PIEUX ACERES":GOTO450t8 
38536 IFREP«=-E"THEN P=P+1 : VU=I : GOTO505 
38540 IFREPS= ll -N"THENP=P*4:VU=4:G0T0585 
30558 IFREP»=*S*'THENG0SUB25566 
38568 [FREPS=S0J*13'THENG0T023ieeELSEIFR 
EPS=-O-THEN38526ELSEIFREPS=-E-THEN30536E 
LSEIFREP»="N-THEN30548ELSEGOSUB20260:REP 
S=-3-:GOTO30550 

30608 IFREPIO-N-AN0REP«:>-0"ANPREP$- "S 
-THENGOSUB20200: G0TO588 
30618 IFREP*="N"THENP=P*4:VU=4:G0T0565 
30620 IFREPf=-O"THENP=P-UVU=3:GOTO505 
36636 IFREP«--S"THENP=P-4:VU=2:G0T0565 
38706 IFREPI' "N'ANPREPIO -E"ANDREP« ' "S 

■THENCOSUB28200:GOTO588 
38716 IFREP»="N ,, THENP=P*4:VU=4:G0T0565 



367£B IFREPI="E-TMEN|'=P»I:VU=1:GOTO505 

38730 :FREP« = "S*THENP = P-4:v'J = 2:G0T0585 

3OS00 IFREP*- -E"ANDREP»->"O"THENGOSUB20 

£08:GOT0588 

7O&10 IFREPf="0"THENP=P-l:VU=3:G0T0565 

38330 GOSUB25500: I FREP*=SQ*< 5>THEN30848E 

LSElFREPi=*O-THEN38810ELSEGOSUB£0£00:GOT 

030836 

38840 GOSUB26806:LOCATE8,22:PRINT-La por 

te aonnait sur le vide ':PRINT - 

Vous-;: FOR H=lT04:PLAVL96P":PRINT-to»be 
:.. . "::NEXTH:FINS=-ECRASE":GOTO450I0 
30900 IFLEN<REP«>< I THENGOSUB20200:GOTO5 

30910 IFREP«=-S"THEN P=P-4: VU=21G0T0585 
30930 GOSUB22200:GOSU820060: LOCATES, 22: P 
RINT-Vous toabez. . . .aais vous uous receu 

=r en douceur " :PLAYPP*:P=P* 12: VU=2: G 

OT0585 

31808 IFREPf'T ■N-ANC'REP«',>"S"THENGOSUB20 

£60:GOTO58e 

31018 IFREPt--S"THENP=P-4:VU=2:GOT0585 

31838 GOSUB25560:IFPEPI<'SOf (8)AN0 REPS< 

■S-THENGOSUB262ee:G0T03ie3e 
31848 IF REP«='S* THEN 31818 
31858 GOTO23580 

31100 IFREP»O-S-ANDREP«>"N*THENGOSUB20 
£00:GOTO580 

31110 IFREP«=-S"THENP=P-4:VU=2:G0T0565 
31130 GOSUB25500: IFRE:P*=-S-THEN31 1 I0ELSE 
IFREP* ^SO»U1>THENGQSUB20£00:GOTO31I30 
31140 COSUB22300 

31 150 GOSUB25500: IFREP*=S0*t I4)THENG0SUB 
2£588ELSEIFREP*='S-THEN31 1 18ELSEG0SUB2B2 
68:GOTO31150 

31166 COSUB25500:iFREP«=-S"THEN 31I10ELS 
E:FREPfOSOf(4)THENGOSUB20200!GOTO31 160 
31170 P=P+I2:VU=2:COTO505 
31400 IFREP*<>"E-ANDREP*'->-N-ANDREP*< »-0 
-THENGOSU820200:GOTO588 
31410 IFREPS=-E-TH£NVU=i:P=P*l:GOTO505 
31420 IFREP*='N-THENVU=4:P=Pt4:G0T0585 
31430 GOSUB25500: IFREP»<.>S0*<9>ANDREPs; : 
■m'ANDREP*<>-E-THENGOSU820208:GOTO31430 
31448 IFREP*=-N-THEN31430 
31450 IFREP*="E-THEN31410 
31460 VUsi:P=P-l2:CLS:G0T0585 
31580 IFLEN<REP*)OlTHENG0SUB28288:G0T05 

31510 IFREP»="0"THENVU=3:P=P-i:GOTO 505 

31520 FORI=0TO24:L1NE(250, 107 )-U 60. 60*2 

*I '.(I H0D8>:LINEi78, 107)-(16e,60*2« - ),< 

I MOD8>:PLAY"A1L205T2DO":NEXTI 

31530 FIN*«"DESINTEGRE" 

31540 PLAYPP*:GOTO45000 

31609 IFLEN<:REP*'<>lTHENGOSUB2020e:GOTO5 

31630 IFREP*- "N-THENVU=4:P=P*4:GOTO505 
3 1 666 GOSUB22280: G0SUB28888: L0CATE6, 20: P 
RINT'Une trappe s'ouure sous vos pieds. . 

-;:PLAYPP*:PRINT-Vous to*bez. -*;:F0 

RI=lT03:PLAY-L96P-:PRINT'to»bez..-;:NEXT 
I:PPINT"dans U chaudiere de la Mison.. 

";:PLAYPPS 

31678 PRINT-C'est horrible. . .vous 9999rr 
n i llllez..-:PLAYPP*:F I NS= "CONSUME": GOTO 

45018 
31700 IFREP*="S"THENGOSUB23080 
31718 IFREP*=-N-THENP=P*4:VU=4:GOTO505 
71728 IFREP*v>S0*< I6>THENGOSUB20200:COTO 
580 

31730 IFCA=0THENCA=l:LOCATEXO,YO:COLOR6. 
6:PPINTCL*:COLOR0,6 

31748 GOSUB25500:IFPEP*="N-THEN31710ELSE 
IFPEP*= , S"THEN31780ELSEGOSUB20200:GOTO31 
740 

7IS00 IFREPI=-E-THENP=P+liVU=i:COTO505 
31810 IFREP*="9-THENP=P-4:VU=£:COTO505 
71920 IFREP*=S0*< 15 •ANDVU=3THENGOSU82020 
0:GOTO580 

31825 IFPEP*OS0*i 15 >THENGOSUB20200: GOTO 
580 

31336 1FAL=0THENAL=1:BOXF'XO*8-1,YO*8+I > 
-< fX0*3>«8,<YO-l)*8-l >,-7:GOSUB25500:GOT 
O71S00ELSECOSUB20£00:GOTO580 
31980 IFPI9=1THENIFREP*=-E*THENGOTO31960 
31905 IFREP*. :-N"ANDREP*i --O-THENGO3UB20 
200:COTO580 

31910 IFREP*=-0-THENP=P-i:VU=3:G0T0585 
31930 GOSU825580: IFREPX ->S0*< 1 >ANDREP*<> 
' -THENG0SUB26268 : G0T031 930 
31948 IFREP*=-0-THEN319I8 
3 1 958 P19= 1 : G0SU82 1 388: G0SUB21 408 
31968 GOSUB25586:IFREP*="O"THEN31910ELSE 
IFPEP*="E"THENP=P*i:VU=i:GOTO505ELSEGOSU 
B20200:GOTO31966 

~£000 IFREP*=-O"THENP=P-i:VU=3:GOTO505 
32010 1FREP*=-S-THENP=P-4:VU=2:GOTO505 
32626 IFREP*OS0*« 16>THENGOSUB20200: GOTO 
580 

32030 IFCD-0THENCD=i:COLOR6,6:LOCATE>:O,Y 
O:PRINTCL*:COLOR0.6:GOSUB25500:GOTO32000 
ELSEGOSUB20200:GOTO588 

32108 IFFE=6ANDREP*=S01i6iTHENG0SUB2eeee 
:PRINT'La Piece rent*ert»ait un *a:....'iui 

a ex Plo... .se *:FIN*=-DECHIQUE 

TE-=G0T0 45616 

32116 IFREP*="O"THENGOSUB25560: IFREP*=S0 

I' l£)THENFE=i:L£l=i:G0T0585ELSEIFREP*=-S 

"THEN32128ELSEIFREP* = "E , 'THEN32130EL$EGOS 

UB20208:GOTO32118 

32120 IFREP*="S-ANDHIR=1THENP=P-4:VU=2:G 

OTO505ELSEIFREP* = "S"ANDf1IR=0THENGOSUB255 

00:iFREP*=SO*(3'THENriIR=i:&OSUB£498e:P-F 

-4:VU=2:PLAYPP«:GOT0585ELSE1FREP*=SO*'6) 

THEN3£ie8ELSEIFREP*=-E*THEN32138ELSEIFRE 

PI=-O-THEN32110ELSEGOSU820208:GOTO32I20 

32125 IFREP*< .-E-THENGOSUB20200:GOTO580 

32138 IFP2l=lTHENP=P*i:VU=i:G0T0585ELSEG 

OSUB25508:IFREP*="S"THEN32120ELSEIFREP*= 

S0*(6>THEN32188ELSEIFREP*=-0"THEN32118EL 

SEIFREPIOSO*' 7)THENGOSU820200:GOTO32130 

32168 I FCA«0ANDCD=0THENGOSUB28060: LOCATE 

0.2£:PRINT*Allons ...vous n'en ave: pas' 

' -:REPS=-E-:GOTO32130 

32170 I FCD«1ANDCA=1THENGOSUB20606: LOCATE 




6,22: INPUT-La^uel U -;OC*ELSE32138 

32172 IF9C*=LEFT*'CC*<1 >, 3 'THENGOSUB2006 

0:LOCATE0,22:PPINT'Un art electrmue jai 

1 1 l t -:FIN*=-ELECTPOCUTE-:GOTO45080EL 

SEIF0C*OLEFT*iCC*'2'.3'THEI«32178 
32175 G0SUB266ee:L0CATE8.22:PRINT-I>'acco 
ra":PLAYPP*:GOSUB25560: IFREP*=-S"THEN321 
£0ELSEIFREP*OSO»" 1 3>THENGOSUB2B200: GOTO 
32 1 75ELSEP=P+ 1 : VU= 1 : P2 1 = 1 : GOTO505 
72180 IFCA»ITHENBC*="ARG-:G0T032172 
32198 IFCD=ITHEN32175 

32288 IFREP*="0"THENP=P-i:VU=3:C0T0585 
32228 GOSUB 25500: IFREP*=-O"THEN32208ELS 
EIFREP*OS0*f I7'THENGOSUB20200:GOTO32220 
32230 GOSUB20000: INPUT "Laquelle"; OF* 
32235 GOSUB25508: IFREP*OS0*< 2 'THENGOSUB 
20800: LOCATES, 22: PR INT "Al Ions.. . du coura 
«e' ! '-:PLAYPP*:GOTO32235ELSEGOS'JB£8080:L 
OCATE0.20 

32240 IF0F*OPF*THENPRINT"Cela brule 

..c'ctait du poison vous vous ecro 

ulez -:FIN*=EnPOISONNE-:PLAYPPCG0TO4 

5018 

3225V p R INT "Ha is * : :PLAY"L96P" : PRINT" 

■ail -::PLAY"L96P-:PRINT-HERVEILLE. .. 

L'anti-poi-son fait deja sone t fe t ' ' ' ' ' ■; 

:PLAY"L96P-:PRINT"Vous retouvez votre as 

pect norpal"! :PLAVPP*:BH=i:G0SU8 25580 

32260 IFREP*="O'THEN32280ELSEGOSU82e288: 

G0SUB25566: G0TO3E268 

32366 IFREP*0-E-wNDREP*< "N-THENGOSUB20 

200:GOTO580 

7;310 IFPEP*="K"THENP=P-l£iVU=£:G0T0505 

32328 G0SUB25S8B: IFREP*=S0*(5)ANDBH=1THE 

K48686ELSEIFREP*=-N-THEN323I6ELSEIFREP*= 

SO*(5)THENGOSUB20880:LOCATE0,22:PRmT-Vo 

us voudriez sortir dans cet etaf??" : PLA 

vppf : GOTO32320ELSEGOSUB20280: GOTO32320 

35866 CLS:SCREEN 5,0,0:PP*=-L72PPP- 

35818 ATTRB 1,1:L0CATE 9,4, 0:PRINT"LA CL 

INIOUE": LOCATE 17, 7: PRINT"DU":LOCATE 6,1 

0:PRINT'DOCTEUR SP0UN2": PLAYPP* 

35020 LOCATE 8,15:ATTRB 0,0tPRINT-Toute 

ou non est -;:PLAYPP*:PRINT'heureuse 

■en t....-:PLAYPP«: COLOR 1 :j3TTRBl, I: PRINT 
: PRINT- IMPOSSIBLE' ! '"^ATTRBB.e 
35636 G0SUB36:C0L0R5: CLS: LOCATES, 2: PRINT 
"...Vous etiez entrc CONFIANT dans la cl 
imque du docteur 5P0UNZ et voila ce 

<nu' ll a fait de vous" 
35046 B0XF<112, 56^-1207, 155>,-8 
35850 FOR 1=6 TO 22: LINE< 125*1, 56)-( 125* 
I,72*I):NEXT I:B0XF( 148, 67>-( 171 , 127): FO 
P 1=6 TO 19:LINEU72*I,56)-<172*I,94-I>: 
NEXT I 

35060 FORI=6T05:LINEC14£*I, 1 18"-1*1 .5)-< t 
42*I,124*I«.5):NEXTI:F0RI=8TO5:LINE(177- 
I, 1 10-1*1. 5 )-(l 77-1, 124+1 *.5>: NEXT I 
35876 F0RI-6TO15: LINE( 152+1, 127 >-( 152+1, 
127+I»<K8)-a-I5)*(I>7)),-B:NEXT I 
35686 FORI=0TO27:LINE< 146+1, 124+I*(I< 15) 
-•■ 1-27)*(I> 14) >-( 146+1, lll+I*<K15>-t 1-2 
7>*<I>14)),-l:NEXT I 

35890 RESTORE 35200: PSETt 1 10, 155), 0:FOR 
I=0TO10:READA,B:LINE-<A,B),0:NEXTi:PSET< 
269, 155),0:RESTORE 35200:FOR 1=0 TO I0:R 
EADA,B:LINE-<320-A,B),0:NEXTI 
35180 FOR 1=0 TO 5:LINE(I54+I, 135+1 >-( 16 
5-1, 135*1 ),4iNEXTI:B0XF( 157, 141)-(163,15 
6), 4 

35110 LINE*'151,129)-<151,138),0:LINE<154 
, 128>-(154,131',6:LINE<157, 125)-< 157, 133 
> . S: L I NE ( 1 68, 1 23 ) - ( 1 68, 1 33 > , 8 : L I NE C 1 63, 1 
25 '-U 63, 133),8:LINE< 166, 12B)-C 166, 131 >, 
0: LINE (169, 129)-( 169, 130) , 6 
3^126 LOCATE 15,7:C0L0R 3, 5:PRINTGR*( 15) 
;GR*( 16): LOCATE 15, 8:PRINTGR«( 17);GR*( 18 
i : BOXF < 1 26, 62 > - < 1 38, 65 ) , - 1 
35130 LOCATE 23, 7: PRINTCR*< 15);GR*< 16) :L 
OCATE 23,8:PRINTGR*<17);GR*C18):BOXF(I90 
,62>-< 194,65), -1 
35140 B0XFC148,56)-U79,66>,-8 
35150 FOR 1^0 TO 9:LINE< 136+1, 56)-< 136*1 
,56*1*1. 2), -8:N£XTI:F0R 1=0 TO 9:LINEU8 
3-1, 56 )-<lB3-I, 56*1*1.2), -8: NEXT I 
35160 FOR 1*0 TO 4:LINE< 192+1, 72)-< 192+1 
,75-I),5-:NEXT I 

35170 COLOR 5,0:LOCATE 8, 19:PRINT"Vous a 
1 lez devoir, dans cette dangereusc c 1 iniq 
ue.trouvez l'antidote au KPZ8 qui vous a 

ete inoculc. .puis il vous faudra sortir 

35180 LOCATE 0, 23: PRINT'Pour co»»eneer a 

ppuaez sur <G)-:SU*=INPUT*<1): IF SUtOCH 

R*C71) THEN 35180 ELSE RETURN 

35280 DATA 122,132,141,124,157,156,143,1 

56,137,151,143, 143, 133,143,133, 126, 141,1 

24, 153,135, 149, 142 

40008 DATA 0UE5T.SUD. EST, NORD, ABANDON. VO 

CABULAIRE 

40610 DATA ABAISSER.BOIRE.BRISER, DESCEND 

PE,ENFONCER,GRATTER, INTRODUIRE, LIRE,H0NT 

EP,OUVRIR,PPENDPE 

46020 DATA ALLUriETTES.ARHOIRE.ASCENSEUR, 

CLEF, DOCUMENT, ESCAL I ER,FENETRE,F I OLE, HAN 

ETTE,M1ROIR,PORTE,POTION.TIROIR 

40030 DATA ARGENTEE.DOREE 

45800 CLS: ATTRB 1, 1 : LOCATES, 18: PRINT" VOUS 

AVEZ ETE-:COLORi:L0CATE6, 14:PRINTFIN*:G 
CT045126 
45816 CLS:ATTRB1. 1:L0CATE8. 18: PRINT-VOUS 

VOUS ETES-". COLOR!: LOCATE*, 14:PRINTFIN* 
45126 ATTRB6,6:PRINT:PRINT"IL VOUS FAUDR 
* RECOMHENCER AVEC ... UNE AUTRE VIE M! 

45138 L0CATE8,23: INPUT"Voulez-vous rejou 
tr(0-N)";RJ«: IFRJ*=" "THEN45130ELSEIFRJ*= 
•N"THENCLS:END 

45140 IF RJ*O-0"THEN4513SELSECLEAR:G0SU 
B38:GOTO500 

48S00 CLS: SCREENS- 6.0: ATTRB 1, i:LOCATE0,7 
: COL0R5: PRINT-BRAVO": PRINT :C0L0R6: PRINT- 
VOUS EN ETES-:PRINT:C0L0R2:PRINT" 

SORTI ' ••:ATTRB0,S:LOCATE0.23,S: 
END • 



SERPEN! 



Ou les aventures dun serpent vorace qui se nourrit 
plus vite que son ombre. 

SUITE DUN' 77 



LISTING 2 




DidierCHABOT 



LIGNEl 

2*0. . 

265. . 
376. . 

ass. . 
aes. . 

1088. . 
1*86. . 

1148. . 

128 7. . 

iase. . 

4813. . 
4503. . 

4598. . 
4535. . 



CRRACTEReS 



"MODE GRAPHIC 

■a c r p e n t 

"ZXBl" 
"PAS URL. . . 
POS MftL . . 

■ <5ERPENT >" 

■PERDU" 

"PERDU" 
" (SERPENT :■- 



l-AWQIR \ 



l-AUOIft I 



I LET CO-350 
I SOTO ISO 
I STOP 




EmS 



.jar® 



CLEAR 8 CLE A 



RR CL 



^BSJ 



CLEAR BBBl fn | __ 
CLE AR if BB CLEAR 
ClT«R TO L 

TO IBB TO CLEAI 

TO TO CLEAA ClEAAJ§ ' _ . 
— § TO BCLEAA 

. EAR CLERr - 

CLEA R TO i ~ 
OEDCLERR 
*RCLEAR ' 
— CLERI 

RR BT6 tO |TOB TO Ti 

b clear clear btclear ti 
7^Ty9?Fx poke toLrndxmW 

AR H|RNDY M%tNDYg fW> N&l " 
V li.WUejVLN B^COI . _ 

LN |\N B?Y RETURN §4. "INT Y 
N BCt-Y CLS Q4SY CLEAR |4NUfcRI 
RETURN COS CfRNDll . ■ ? TJC HI 
RN 14-Y ?7"Y §4 DIM 04 NEU LN 
EN T LN THEN ?TuiNKEY»U|RN077 I 
URN TO 4MBASN ">PILN LIST INKEYI/ 
tECRNDYBlB ; * 7 • GOSUB BTAB BINKE 
YIFTAN T5 GQSUB 7»|)NDY TO M-R 
NO/? RETURN B4.BC7LN LI5T INKeTi 
>8 ; TO MRNDVJrWiND/O RETURN CL 
ERR 4/<CJLN LIST XNKEYIPBMlRNDY 
CLEAR M-RNO/, RETURN fcU-BciLN LI 
ST INKEYS7 CLEAR M |RNDYSrW»NDLN 
LIST INKCYtU»RND RETURN TO tflS 

OOSUB ?/> RETURN B4a*>8 , /■ RETU 
AN CLERR 4"F/"7BRSN ^7 RETURN MR 
SN 77 RETURN BC.LN COSUB PILN TH 
EN ->-«INKeY|ECRNDI 7 , O0F/ PRINT 
— ' -!NOT— * _ 



373 PRINT TAB 3. 
MONSTRRTION" 

380 PRINT 

285 PRINT TAB 3, 
PLICATIONS" 

399 PRINT 

205 PRINT TAB 2, D-ARRETCR 
ROGRAMME" 

309 LET CO-9 

310 LET XB.INKEY* 
328 IF X««"l" THEN GOTO 500 

330 IF X«-"a '■ THEN ■ — 

331 IF X«i"3" ' 
338 IF X«»"4" 
355 LET CO"C0+_ 
360 IF C0O59 THEN GOTO 310 
388 POKE 16523.8 

366 POKE 16834 .8 

370 POKE 16530.1 

371 RRND 

375 LET NIUaINT lRNO*MINi*l 
360 COTO 4000 
501 PRINT 
50a PRINT 

805 PRINT "OUELLE EST VOTRE WIT 
ESSE? 11 A 5 1*RAPIDE 5-LE 

519 INPUT U 

539 IF lid OR U>5 THEN GOTO 510 

839 POKE 16539.0 

3*0 POKE 17377, 10.1U-1) +1 

990 GOTO r 



L l£ g"ir 2 ■ ■ ■■"■ 

197$ PRINT T| BB B B B 

ljTjSniff % ■ BBB | MIH 
1075PRI~ Vl Bl 



18 79 RETURN 

1080 PRINT AT 5,0^JBi ■ ■ 

lell PRINT ■ I ■■ BBI BBB I 

i^bbbb a?* 1 mDmmxmmwt 

^64 PRINT ' 

I 

ies5 p 

10g*"pkirj 

:q|^p?2 t ™_V ■■ ■■ ■■ ■■ 
lgePp&TNT^P ■ ■ ■ ■ 




"""""^T"* % bibb an bi aa 
isesWfNT "aiiiBBBBBlBl 



1 175 PJ..-. 

117 4 P RINT Ji BBB) Bi 

WAlWJp 



""^""?I"*|T Tp a 



1160 PRINT"RT 5.0,^1 ■ ■ ^PpRINT 1 "bBIIIBBBBBBI 

iiTaTgiN? "■ bbbbbbb ansa a a i274*print % aaa bbbbbbb bbbi ■ 





1969 PR INf~3p Bl Bl Bl Bl Bl 
1998 PRINT^Tp BB MB Bl BB BB 

iHi™rw5b b a a a 

: print j§ u an 

^rintJb« aaci 



■ ■ : •P:P£::.:\": 

11 " "" "* "* lis" print Tat ■ ■ a a ■ ■ ■ 



39 RETURN 



ii S print ^ v*K * : ! 

liei -"In. _pVBTl ■ ■ ■ ■ I 

i i is ■ ■ a5* ■■■■■■■ 

1 a ■ b~b '■ -" ■■■■■■■ 

1104 "r"h" 




. _ TMEI 
N 77LN THEN 7LI 
EYiUlRND RETURN 



AN 1 



AB iINKEYtLN . 

HEN ''LN THEN 7 

■AND RETURN r " 

■L-v dEfiUOA CLEAR 

:NOF?Y BlHpc DIM " B 



OPY T 



ThN 
:L -il T 
EBPN 

^ : "- COf . . 
.6 T«N y>tXKXXKXKXXXX 

2 REM < < t < < (SeRPENT !>>>>>»> 

3 REM PAR CHRBOT OIDIER 
10 COTO 109 

94 LET X«m"5ERPENT' 

95 SAUE X» 

190 DIM Mt(5.10> 

101 LET U-3 

102 POKE 17377, IB* IU-1) H 
19S LET M*<1J ="DIDIER" 
110 DIM 5(51 - 

115 LET 5(1) E3300 

131 CL5 

130PRINT TAB 6."^^^^^ 

135 PRINT TAB 6, " ^^ IT ^ r 

149 PRINT TAB 6, "■" ^* * ■ ^ 

150 PRINT ttiiKtutiMiliiHi 
*131 PRINT "# 




■ • ■ a a a a 

!■■■■■■ 

a a ■ a a a i 



i ■ a ■ a a a 
iiiiii 

a a a a a a a 
>■■■■■■ 
■ a ■ a a a i 



iiiiii 

1107 PRINT ■ 

*• Mi i 

iiiin 

1112 PRINT " 

ifi! hU '■ 

IIIIII 

1114 PAINT ' 

M M J i 

1113 RETURN 
1 120PRINT AT 5 , 9 , "■ BBBl 

iisiWrN- a aaa " hi 
iiaa^pRiNT jb 



' "a ■ ■ ■ ■■■ 

11?4 pglNT % 8 B B B ■■■■ 
11*5 fWnt""j| ■ I 




1260 PRINT AT S,0^BB 8 a 

1261 print | aaai aaaa ■ aaaa ■ 

,'. . (■:-.- I BBBBB H BBBl I 



^87 paiijt^ti ■ an ■ n-raj i mi 

136 8 PAINT SlBI BBBEOBDHI 

|,yv*" 

^—p'-l-j _t Ji ■■■■ aaa a x 

™ 1*PrT™T %| BBB ■ BBBB ■ 

1 BBBB P |BBfl a" l ™ 1 " , """ , *" ™* 

i3*"p"w % BBBBB BB BBBl I 

llfl™ piffif JJpa a a 

1299 RETURN 
4000 CLS 

t|SjJPal 

4CU0^!f"!T™AT 21 



lfff TOnI 1 ' 



155 PRINT ' 
MRNGEANT i 
157 PRINT 
ERCETI0UE5 

160 PAINT 
R. 

161 PRINT 
LE SERPENT 

162 PRINT 
RDHE SOUS 

163 PRINT 

164 PRINT 

165 PRINT 
ME 

166 PRINT ' 
TE 

167 PRINT 

168 PAINT ' 

169 PRINT 

170 PRINT ' 
IMPASSE 

171 PRINT ' 
ERREUR li 

172 PRINT ' 

173 PRINT ■ 



1S0 FOR X«l TO 500 

IBS IF INKEYC< " 

8 

190 NEXT X 

381 POKE 16514.3 

210 POKE 16518.0 

215 POKE 16519,0 

330 LET NIUil 

aas CLS 

330 LET HIN-15 
2*0 PRINT RT 0, 12 

3S0 PRINT AT 3,3. 
365 PRINT AT 6,3, 
RAT IE" 
279 PRINT 



UN SERPENT SE PR 
UN LABYAINTME CN 
OES PR5TILLE5 EN 
OUI LE FONT GRAND I 

MAI5 ATTENTION, 
NE DOIT PAS Se MO 
PEINE DE MOAT. . . 
TOUCHES UTILES 
G-UERS LA GAUC 
H-VER5 LR DROI 
Y-UERS LE MAUT 
6-WERS LE BAS 
1 -PAUSE 

o-ourrreR une 

SHIFT-BREAK .CODE 



T933PR 1^ ' 

1034^«lW J 

T035 - "if 

1037 RETURl. 

1040 PRINT AT 5,0,_ 

ia"™Ppf INT ■ 




BBBBB aBBBBBB TfTs PTmlr 



■ ■ ■ ■ ■ ■■" 

^si.^^N-^i B B BBBBB 

1309^ HB NT BI B) BB I I I BBB BR 
1319 PAINT "% BBS BBBB I BBB 

.11 :. pc INT % BBBBBBB BBB B BB 

BB I I I jip aBaaliaalllB 
if 13 Ls'-I 
ItJint 



■aa a a J"*""*™? J bbbbbb bbbbb 



""I. 



_::.-■ PRINT ■ BBBBt BBBBBBi 

1 123 ^ :-.™ti ; B BBB BBB 

■ a b_ 

li:-^pr,-:^T a BBBBB aBBBBBi 
'. i-.-. -;■ ;:.' % BBBBBB BBBB 

mte»$ — ■— 



1045 PR^ 

1946TPRINT ' 
T047™PRINT 



1048K 
4* PR It 



41 PRINT ■ 

42 PRINT % BB 
143 PRI NT % | 



I I I 
■ ■■111 



THEN LET Xa50 



l-FAIRE UNE I 



1050^1"? I a 1 1 1 1 

let i'pri nt % a bb a a a bb 
fols pPInT "bbbbbb 1 
10B 3 _* ( _^ "a ac m ■ bb a 
^LSig Sanaa a a 

1 """print % a BBBl 
LOG! return 

19 69 P RINT AT 5,0. "BB BB 

loei^j-yT a a b " aaa a 

^L"*""" V BB I ■ ■ BB 
i«|3 PAINT % BBB I I B 

i0e"^pf?"r "a m a a a 

1965 PAINT "II B II BB) 

1956 ""In? bob I a I 

i'oji'm*^ -■- 

105FTrTnt -a Bl ■ ■ 

fg PRINT "I SB I BBBl I I 
B ; r. .-. v- I BB B III 
1 Print Jii i aaa i 



114SPRJn" BBBl 
it*!™* r"nJ % a b ar i 

047 Print S||| BBBl I 
16 print % ■ I BBBl I 
lfS "t-TNT 1 % I ■ BB Bl I 
1158™R- N ! "l ■ B BBI Bl 

Bl" S ■ "■ " 

ii|3 prI nt % ■ BBBBBBBB 

115 3 PRINT "la B 

tali"' 

1153 RETURN 
1169PRINT AT 5 . w 

y&^T&INT J| BBI 

111™ PT™NT % B4 

1163 PRINT % I BBBBBBBB III 

'at" mn a" " "* ■ ■ ■ ■ 

I165PRINT "a I BBBBB II I 

1166 PRINT % " ■ 

tM MJt \ 



■ ■ 
1 1 1 1 



121V RETURN 

12JJ PRINT RT 5^9.^ 1 I 

mmi *J ... 

1323 -t. :■.-■ a BBBBI BBBBB Bl 

HMWffN ■ ■■ 

m srii > ■ ■ "™ 

1226 PPInT Hb a 

-•B^M r 'iBB IT """ HHHMHI 

JrJnJ B BBB BBBBBBBB 

^2"™pptnt "a a 

a a 

..-:o print B BB Bl BBBBB 
12™f pain" "■ Bl I I 

123jj print "| BBBB BBBBB BE 

1™35 PTsT™f % Bl 1 Bl 1 

123-3 RETURN 

1240 PRINT RT 5 , B^^pl I 

1341 Print 'a BBBB BBBBBBBBBB 

1242 PRINT % Bl Bl Bl 

m m m * a ^^^^^ 

124J PRiur m ■■ ai k 

lllll— "— " 

■. -.at f» t !P V- - m m m m 

s^; a -% --..-. 

if«PWiSf Jp i m m m- m 
Vi m "|S S* " " " " "^ ■■ 

"™l? Pf"™* "bb b 

a m^ 

.if!/ RETURN 

i|6» paint at j-B-JP aaa 

.-aa i 1 -. ■; ■ ■ " ■■ ■ ■ 



. _ 1 , . G * 
4915 PRINT AT 9,12," 

PRGE ";NIU 
4917 PRINT AT 9.2; 'WIT. ",U 
4018 POKE 17102, 2t .ItINT ( (NIW- 
J /MIN> > 

4919 IF PEEK 17377>1 THEN POKE 
7377. PEEK 17377-1 

4920 LET NXR.NIU-1-MIN«INT UNI' 
-It /MINI 

4025 G05UB 1OO^-NIR<20 

4.039 PRINT AT 3.0. " SCORE 0000 

UIES 09" 

4949 LET '' " 

4045 LET 

EK 16S19) 

4050 LET U«=STA« U 

4055 LET 5|»5TR1 5 

4060 PRINT AT 2,27-LEN U».U» 

4055 PRINT RT 2.14-LEN S«,5* 

4140 RAND USA 16700 

4189 IF PEEK 16514-9 THEN GOTO 4 
500 

4160 LET BON=10*NIi 
4165 LET 5«BON.10* 
6*PE6K 16319) 
4 179 LET B»»"BONNUS 
4175 LET C»=" 
41S0 LET Ht = ' 
41S5 PRINT AT 12, 
LEN SI) , "5" 

4190 PRINT TAB 10, "I ",B«, " I" 
4195 PRINT TAB 10 , "L" . C» ( 1 TO LE 
N B«l , "J" 

4199 LET U.PEEK 16514 

4300 LET B»«STR! 5 

4301 LET U««STRi 'J 
4305 LET SC=S/10 

4310 PRINT AT 2,14-LEN S*,S« 
4211 PAINT AT 2,27-LEN U«,W« 
421S POKE 16518, SC-256. INT iSC/2 

4220 POKE 16519. INT iSC/255) 

4235 FOR X«l TO 75 

4239 IF INKEY»t >■■" THEN LET X=75 

4235 NEXT X 



4599 IF PEEK 16530"1 - 

00 

4591 PRINT AT 12,13,"J 

4502 PRINT TAB 13, "IH 

4593 PRINT TA6 13, ' 

4595 FOR X«l TO 5 

1506 PRINT AT 13.1. 

1593 PRINT AT 13, 1. 

4519 NEXT > 

4513 LET S=10t iPEEl 

EK 16519) 

4S19 CLS 

4529 IF S/S i5) THEI 

4525 PRINT TAB 12. ' 

4539 PRINT AT 4,3, ' 

LLE'JR5 SCORES " 



16S1S.255*PE 



4535 PRINT 

4540 FOR X«l TO 5 

4545 PRINT 

4550 PRINT TAB 5.X.TAB 7, MI I 

AB 25-LEN iSTR« SiX)),S(X- 

4555 NEXT X 

4569 PRINT 

4565 PRINT 

4579 PRINT " VOTRE SCORE. "J 
4575 FOA X»0 TO 250 

4580 IF XNKEYIO"" THEN LET 



4600 PRINT -QUEL EST UOTRE NOM" 1 

10LETTRES : " 

4610 " ' 

4615 l__ 

4629 LET S<5) -- 

4625 FOA X*4 TO 1 STEP -1 

4639 IF Six.) '5 THEN GOTO 4660 
4633 LET ;. ,v,i, sSIVi 

4640 LET M| iXtli -M»(X> 
4645 LET S(X) ij 

4650 LET M|(X) =Z« 

4660 NEXT X 

4665 CLS 

4670 GOTO 4525 
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SANTE 7 



La reunion exceptionnelle des plus grands savants du 
monde a permis, apres de longues annexes de recher- 
ches, la d6couverte dun vaccin absolu. le SANTE 7.Sa 
fabrication a grande echelle necessite I'emploi dune 
substance rarissime abondante sur URANUS, le SAN- 
TEHUM. 

Serez-vous assez habile pour aller querir cette es- 
sence miracle ? 

Fernando COSTA DOS SANTOS 



Mode d'emploi: 

Les regies principles sont dans le programme (13829 octets) 

Le decollate de voire fusee est automatique, voire progression 

dans le systeme solaire sera suivie et visualisee par I'ordinateur de 

bord. 

Arrive sur MARS. I'ordinateur vous avertira dune attaque et vous 

passera les commandes. Sachez que vos deplacements haut et bas 

sont minterrompus 

Si vous etes vainqueur. I'ordinateur reprendra les commandes jus- 



CANON X 07 



qua la peripheric dune ceinture dasteroides ou H vous repassera 
les commandes. Vous serez materialise par un point qui partira du 
coin superieur gauche au second BEEP Vous devrez toucher le U 
a droite de lecran 

Une fois vainqueur. I'ordinateur vous menera jusqu'a la proche ban- 
lieue d'URANUS. il vous repassera les commandes et affichera. 

- Votre vitesse par rapport a URANUS 

- Votre distance d URANUS 

- Votre energie disponible pour AHURANUSSIR. 

Pour reussir, vous devez reduire votre vitesse ainsi que votre dis- 
tance a environ 5 en valeur absolue grace a la louche F. Votre 
AHURANUSS1SSAGE (out !) reussi. vous serez recu par un espece 
de SPHINX possesseur du SANTEHUM. qui vous fera passer une 
serie de tests afin de vous eprouver. Si vous reussissez, les pou- 
voirs de cet etre curieux vous teleporterons sur terre avec la pre- 
cieuse substance Dans le cas contraire. vous devez a nouveau af- 
fronter les bandits de MARS. 
Remarque 1: 

Les saisies effectuees lors des tests ne sont pas corrigibles. certai- 
nes ne sont pas affichees afin de maintenir votre attention au maxi- 
mum. 

Remarque 2: 

II est possible de couper la parole de I'ordinateur de bord lorsqu'il 
vous rappelle les commandes ou votre position en tapant R 




A suivre : 

En raison de la longueur 
mhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois 






io • ****************************** 

20 'Mr COSTA DOS SANTOS Fernando 

22 " 109 rue de CHAMPAGNE 

24 '73000 CHAMBERY-LE-HAUT 

26 'Presents 

28 ' SANTE7 

30 'Pour CANON X-07 

34 'CHAMBERY-LE-HAUT le 30/01/1983 

50 ' #■«(*#**#•*******#**##***##**♦# 

60 ' 

70 'INITIALISATION ft. PRESENTATION 

80 ' 

90 cls:clear420:definta-l:defstrm- 
u: 0nerr0rg0t030000 

100 DATA" »»»»»*»*«»< »»»*»** *COS 
TA DOS SANTOS* * present* * 

110 DATA" »»»»»»»»«»»»*»* MM* ***** 

************* * SANTE7 pour * 

120 DATA" *CAN0N X-07 16Ko.» **** 



130 DATA' *CHAMBERY-LE-HAUT* #LE 
30 JANVIER B3* IHIHU I H II 1 I HI 
140 REST0RE100 

130 fori-ito4:readm:n-n+m:next 
160 printleft«(n,79)j ilocateo.o 

170 C0SUB60060 

180 PRINTMID«(N,80,79> I ILOCATEO.O 

190 G0SUB60060 

200 PRINTRIGHTKN.79) J 

210 GOSUB60060 

220 CLS 

230 line (o, 01 - ( 119,0) : line- (119, 31 

i:line-(0,31):line-(0,oi 

240 lineu06.2)- 1117,2):line-(117, 

15) iline- 1106,15) :line-( 106,2) 

250 LINEI108,4> - (116,4) 

260 LINE(112 I 4)-(112,13) 

270 L0CATE1, 1 : PRINT" Agent X-07 UF 

O 

280 L0CATE1,2:PRINT'14940 CANON CI 



sent les p I us 



290 G0SUB60120 
300 DATA" Aprs 
rche, 1 ' equipe 

310 DATA'sc ient l f iques du monde 

1 ibre vient,encet an de grace 199 
9de trouver 

320 DATA'enfin la formule du VACCI 
N UNIVERSEL : le SANTE7 
330 DATA- Helas.ll faut poursa fa 
brication a grande echel 1 e, une 

substance 
340 DATA'rar issime sur TERRE mait 
abondante sur URANUS : le SANTEHU 
M 

350 DATA" Les Hommes ne sacha 
nt pas encore le synthetlser.il 

taut done 
360 DATA'aller le chercher sur U 
RANUS 

370 DATA" C'ei 
al de la UFO 

Orb i tales) 
380 DATA"qu'est CDnfiee cette miss 
ion EXTREMEMENTper i 1 leuse mais si 

NOBLE ! . 
390 F0RI=1T09 
400 CLS 

410 READM:PRINTM| 

420 G0SUB60120: IFS= " R" THEN440 
430 NEXT 
440 CLS 
450 ' 

460 'PROGRAMME MAITRE 
470 ' 

480 REST0RE40030 
490 DIMT t 1 14) 

300 FORI=OT01 14IREADT II) :NEXT 
510 G0SUB60170 
520 L0CATE13, 1 :PRINT-12 
540 F0NT*!128)=T(37) 

530 FONT«t 129) ="0,0,0,28, 20, 124,36 
,252": FONT* 1 130) ="0,0, 0,224, 160,25 



ous, agent spec i 
n des Farces 



0, 144,252 

560 M«CHR«( 128) :N = CHR«U29) : 0=CHR* 

(130) 

570 L0CATE17, 3:PR1NTN; 

580 FORI=16T08STEP-1:FORJ=OT02SO:N 

ext:locatei,3:printn( mi :beepi,3:ne 

XT 

590 F0NT«(129)-T(113) 

600 L0CATE7,3:PRINTN! :F0RI-0T0250: 

NEXT 

610 L0CATE6,2:PRINTN!L0CATE7, 3:PRI 

NTMI0I620 F0RI=0T01E3:NEXT 

630 L0CATE6,2:PRINT" ■ 

640 FORI»7T016:FORJ=OT0250:NEXT 

630 L0CATEI,3:PRINTM;0} :BEEPI,3:NE 

XT 

660 F0RA=3OT024STEP-i:F0RB=14+AT0A 

+12STEP-1: PRESET (B, A) : FORI=1T01SO: 

NEXT I, B, A 

670 PRESET (B.A+1) 

680 F0RA-25T013STEP-1:T-TIME«:BEEP 

A, 1 

690 PRESET(A,24) :PRESET(A,9) 

700 L0CATE13, i:PRINT-A+13 

710 1FT-TIME«THEN710 

720 NEXT 

730 L0CATE13, l:PRINT"FEU 

740 F0RI-0T048:BEEPI, 1 : NEXT : FORI -4 

8T00STEP-l:BEEPI, i:NEXT 

750 F0RI-1T083:CIRCLEI30.29» . I : BFF 

PI, 1INEXT 

760 CLS 

770 GOSUB60230 

780 F0RI-32T034:T-T1ME« 

790 IFT=TIME«THEN790 

800 PRESET (1,13) iPSET tl-l, 13) : BEEP 

I , 1INEXT 

BIO F0R1=0T09: BEEP13, 2: BEEP1 ,2:PSE 

T(34, 13) :F0RJ=1T0300: NEXT: PRESET (3 

4, 13) 

820 F0RJ=1T0300:NEXT:NEXT 

830 60SUB60380 

850 DATA-MARS est le repere des ba 

ndits interplanetaires. I Is nous at 

taquent! 

360 DATA -COMMANDES: utilise! le cu 

i-seur pour vous deplacer et <SPC> 

870 REST0RE850 

880 READN,M:N = N«f.; J=i_fcNlN- :N(OI ="= 

»»-■=" ;N( 1)="DMNGER 

890 G0SUB60790 

910 CLS:F=3:E=100 

920 G0SUB60440 

930 E=E*G:F»F*1*ABS(G>250) : IFK-1TH 

ENG0SUB35030: G0T0920 

940 CLS:ERASEM,N: A="FRE <ei 

950 G0SUB60060:A=STICK(0> 

960 GDSUB60230: PRESET I 34 , 1 3 I :F0RIe 

35T036:T=TIME« 

970 IFT=TIME*THEN970 

9BO PRESET (1,13) :PSET(I-1, 13) : BEEP 

I , 1 : NEXT 

990 F0R1=0T09: BEEP 1 3 , 2 : EEEP I , 2 : P3t 

T(36, 13) :F0fiJ=lT0300: NEXT: PRESET ;3 

6, 13) 

1000 F0RJ=1T0300: NEXT: NEXT : G0SUB60 

380: RESTORE 1 10 :M="" 

1010 DATA-Nous arnvons a la ceint 

ure d ' asteroides. Son passage eta 

nt EXTREMEM 

1020 DATA-ENT delicat.je vais vous 

passer les commandes: Ut i 1 isez le 
curseur ■ 

1030 DATA"avec ses 8 directions.il 
I faut traverser Pterin de gauche 

a droite) 
1040 DATA-Votre fusee part du coin 

superieur gauche au 2 nd beep. 
1050 readn,m:n«n+m 
1060 j=len!n) :n( 1 )- "danger" : n (0 i * " 

======1080 G0SUB60790 

1090 IFLEFT»(N, 1 > = "N" THEN1050 

1100 CLS 

1 1 10 G0SUB60850 

1120 CLS: IFK=0THENG0SUB35030:G0T31 

110 



1 130 ERASEJ.K 

1140 CONSOLEO.4,0,1, 1 

1150 GOSUB60230 

1160 PRESET (40,8) 

1170 f0ri=41t075: t=t1me« 

1180 ift = t1me*then1 1 bo 

1190 preset (i ,8) :pset( 1-1,8) : beep i 

, 1 :next 

1200 F0RI=0T09:BEEP13,2:BEEPI,2:PS 

ET 175,8) :F0RJ-1T0300: NEXT: PRESET 17 

3,8) 

1210 F0RJ=1T0300:NEXT:NEXT 

1220 G0SUB60380 

1230 REST0R£1240:M=" 

1240 DATA-N'etant pas programme po 

ur les 'AHURANUSSISSAGE' ,je vais 

1250 DATA' les commandes. Ut i 1 i sez 
*F ' pour Frei nmr " 
1260 re adm, n:n=m*n: m=- - : j»len in) : n 
(1)="DANGER- :N(0) -"*«-« 
1270 GDSUB60790 
1280 CLS:C0NS0LE, , ,0, 1 
1290 A--100:B=lE3:C«E»100:N= n * 
1300 PRINT-Vitesse : 'A 
1310 PRINT'Distance :"B 
1320 PRINT'Energie : "C 
1330 PRINT'Commande : "N[ 
1333 LOCATE 1 1,0 : PRINTA, TAB ( 1 1 ) B, TA 
Ell n£,TABU2)Ni 
1335 BEEPC, 1 
1337 F0RI-1T090INEXT 

1340 D-0: IFTKEYI 'F' ) THENN- 'F'ELSEN 
-'* 

1370 IFN='F"THEND-5 
1380 IFD>CTHEND-C 
1390 C»C-D:A=A»D+D/2-l 
1395 B=B+A+D/2 

1400 IFC=OTHENCLS:PRINT, 'Plus d'en 
ergie' " :E-E-50:F=F-1 : F0RI=1T0300: N 
EXT 

1415 IFC=0THENG0SUB35030:G0T01280 
1420 IFB>0THEN1333 

1430 IFABS(B) <5ANDABS(A) <5THEN1450 
1440 CLS:F0R1 = 1T020: CIRCLE 160, IB) , 
I:BEEPI, 1 I NEXT! CLS : PRINT, "Vous vou 
s etes CRASHE ' 

1445 E=E-l:F=F-l: FORI =1T0300: NEXT: 
G0SUB35030 : GOTO 1 280 

1450 CLS:PRINT, 'AHURANUSSISSAGE OK 
. ' :G0SUB60060:CLS 
1460 G0SUB60310 

1470 F0NT«(12B)»T (114) : N=CHR* i 1281 
1480 F0NT«(129)»T Cll) :0»CHR»(I29> 
1490 L0CATE16,3:PRINTN| 
1500 L0CATE11, 1 : PRINT "BRAVO • ":GOTO 
1550 

1510 F0RI=1T0J:L0CATE11, 1 :PRINTMID 
«(M, 1,7) : IFI»1THENF0RK-1T01E3:NEXT 
1513 BEFFI , 1 
1520 NEXT 

1530 L0CATE11, 1 : PRINTSTRING* t 7, 0) 
1540 RETURN 

1550 DATA*FELICITATION pour avoir 
reussi ce long vovaqe mais... 
1560 DATA'nous allons verifier que 
vous etes assez digne pour que je 

1570 DATA- emporter le SANTEHUM qu 

e vous etes venu chercher } 

1580 DATA* Voici une ser te, trouver 

1 e terme qu i la comp 1 ete. 
1590 DATA-Desole.mais e'est FAUX.j 
e vous accorde encore un essai . 
1600 DATA'Encore une serie pour ve 
r if ier que ce n ' est pas un hazard . 
1610 DATA'Desole, mais, vu vos repon 
ses,je vous renvoie d " ou vous vene 
z. 
1620 DATA-FELICITATION ■ Vous avez 

bien repondu. 
1630 DATA-I1 ne vous reste plus qu 
'a trouver la combinaison de 3 chi 
f f res 

1640 DATA" qui vous ouvrira le cof 
f re. 
1650 



1660 restore 1550: m=" " : p=" " : fori = 1t 
04:readp:m=m+p:next:p=.- ■■ 

1665 J*LEN(M) 

1667 L0CATE11, 1 : PRINTLEFT* (M, 7) : FO 

RI»0T01E3:NEXT 

1670 G0SUB1510 

1680 G0T01810 

1690 * 

1700 F0RI=1T06: All )»C:C-C*G 

1710 G=G-i: NEXT: RETURN 

1720 ' 

1725 A(0)-C 

1730 F0RI = 1T06: A ( I ) =A 1 1 -1 ) *C 

1740 NEXT:RETURN 

1750 ' 

1760 F0RI=1T06 

1770 A(I)=C:C=C+G:G=G*1 

1780 NEXT 

1790 RETURN 

1800 ' 

1810 B=o:h=i 

1815 F0NT«(130)=T(11> 

1820 CLS 

1830 C-INTIRND I 1)»15) +1 

1840 D-INT(RND(1)»3) ♦ 1 : G-INT IRND ( 1 

)#11)+1 

1850 0NDG0SUB1700, 1730, 1760 

1860 F0RI-1T03STEP2 

1870 PRINTA(I)TABI9)A(ItI ) : NEXT 

1880 PRINTAI5) , "REFLECHISSEZ -i 

1B83 I'TKEYI'l'l 

1890 F0RI=1T015:T-TIME» 

1900 IFT-TIMESTHEN1900 

1910 L0CATE15,3:PRINT15-I.| :NEXT 

1920 L0CATE0,3:PRINT"Votre reponse 

1925 L0CATE15.3 

1927 P«"" 

1930 F0RK=0T0500 

1940 M=INKEY*:PRINTM{ :P=P*M:NEXT 

1950 CLS:GOSUB60310 

1960 IFVAL IP)=A(6)THENH=H+1 : RESTOR 

E1600:READP,M,M: IFHv-3THENM = M*P:GDT 

01980ELSE1980 

1970 REST0RE1590:READM:B=B*i: IFB>1 

THENREST0RE1610:READM 

1980 J=LEN(M) :G0SUB1510: IFH<3ANDB-: 

2THEN1820 

1983 IFB=2THENE=E-100:CLS:G0T0920 

1990 IFH-3THENREST0RE1630:READM,P: 

m=m+p: j=len(m) :gdsub1510 

2005 erasea:d=o 

2010 a=int(rnd(0)*999i +1 ! ifa< 100th 

EN20I02020 M»'Votre reponse?" ! I"TK 

EYl'l" ) 

2023 J-LEN(M) 

2023 R-"":G0SUB1510 

2027 LOCATEll, 1 : PRINTSTRING*( 7 , 32 ) 

2028 d=d+i: ifdj10thenrest0re1610:r 
eadm:goto20BO 

2030 R*"":FORI=1T03:GOSUB60120:R=R 

*S:NEXT 

2040 B=VAL(R) : 1FB< ATHENM-" Trop pet 

it 

2030 IFB>ATHENM="Trop grand 

2055 M=M+". Votre reponse? 

2060 IFB=ATHENREST0RE1620:READM 

2080 J=LEN(M) :G0SUB1510:L0CATE11, 1 

:PRINTSTRING*(7,32) 

2090 IFD>10THEN2100ELSEIFB>A0RB<AT 

HEN202B 

2100 IFD>10THENE=E-100:G0T0920 

2105 GOSUB60O60 

2110 M-"Toutes mes f el ic i tat ions. J 

e vais vous teleporter sur TERRE a 

vec votre 

2120 M-M+" fusee chargee de SANTEH 

UM. Au revoir HOMME. 

2130 J=LEN(M) :G0SUB1510 

2140 CLS:G0SUB60060 

2150 G0SUB60170:F0NT«(12B1 »T(113) 

2160 L0CATE7,3:PRINTCHR«(128) J 

2170 GOSUB60O60:F-0:G0TO35130 

10000 IFINKEY*="THENlO000ELSEEND 

30000 * 

Suite page 26 



PANIQUE 
AU FOND 



Rechercher des tresors au fond des oceans nest pas 
de tout repos, il faut savoir se sortir indemne des mau- 
vaises rencontres que vous ne manquerez pas d'y 
fa ire. 



SUITE DU N 77 



EXT 
28017 PL0T19.1."«" Pl.fiTr- • ■'«'■ 
2R818 PL0TI9.3-"< " PL0T19.4."'" 

?eai9 PL0T19.5.-V ploti9,€," >■■ 

28020 PL0T1.11 3 PL0T1 . l?.l 

28830 PLOT 16.11- "GAOtE 

28833 PLOT 16. 12."GAGNE " "■ 
?P038 REM XXXXX»XX**X**XXXX*XXXX* 

28839 REM ** MUSI QUE P'J WUNQUEUR 
** 

28840 PEM «tHlir»tirit*l««MI 
XX* 

2804! F0PI-1T025 

28042 MUSIC1-OC' I > NOM >.0 MUSIC 
■ OC<I >*1 -NO' I >.i 

28044 PLRY3 , B. 1 . 800O WA [ TWA- I > ME 
XT I 

2804? PL0T16. 18. "SCOPE " 

28046 PLOT2318.STRKSC) 

28050 WfiIT200 PLOT2.20."OH CONTIN 
UE...AVEC 1 VIE EN PL"? '" MA=MA+1 

28060 UAIT208 GOTO10 

>t»en0 PEM **X*******X*X*X***X*XXX 




Ph et JM RIAS 



HAUT SCORE **** 
Tt*tt*tt**tx**f**x 



*t* 
29010 REM ****** 

X« 

2902? REM 
XX* 

2«030 CLS ■ PRPER1 INK? 

2O04P IF5C-HSTHEN29500 

29043 HS*SC 

29045 PLOT0,S-12 

29050 PL0T3i3!. "VOUS P-RTTFZ IE SCO 
RE DE " PL0T1B-7,MS« 

29060 WAIT 100 

29070 PL0T3-15,"ENTPEZ VOTRE NQM" 

290P0 PRINT PRINT PRINT PPIMT PPI 
NT PPIMT PRINT PRINT PPIMT PRINT P 
PINT 

29090 PRINT PRINT PRIMT PRINT PR I 
NT PRINT PRINT PRINT PRINT" 

29100 IHPUTHSS HSS-l EFTS' HSS. 15 » 
29388 CLS 

2*510 FOPI-1T024 PLOTl . I 10 NEXTI 
29512 PLOTS. l."LE HEILLPP PtnHCf 

IJP EST. - 
?<>5I4 PLOT'S.?, "i p. mfii | Flip PLONGE 

IIP EST " 
29520 PLOT2.9-6 PLOT2.10.4 
^9530 PL0TI3,5.HSi PL0T13, 2§,rt§t 
29540 PLOT12, 15-"RVEC UM SCnpF PE 

29*>S8 PLHTt? 16. "AVEC UN SrnPF PE 

29560 PL0Tl'5-19.STMiMS) 

29570 PL0T13.28STPS' H^ ■ 

2^37-i PUOT3-?5."HPPllYF. 1 ' Sup P£THP 
H PflllP PF imiFP. . 

?«=;80 REPEAT UNTILPEEfi»208>*lifiF 
PFTiJRN 

29999 REM ************* **»t****i i 



?O000 REM i 



I f>F PPF^ENTATION 



10006 pem mimiiitmiiMHiit 

30007 FOPI.#B8A4T0»BBR? POKEI.32> 

NEXT 
30006 PLRY7.4.1.0 
30010 PAPER3 INKS POKE61810 
38815 PLflY0.7.4,3000CLB 
38020 TIS-"PANIQUE AU FOND DES ME 

RS- RUS-"PAR PH. ET J.M. RIAS" 
30021 PLOT 1,9 ,10 PLOT118.10 
38022 PL0T2.9 ,4 PLOT2-10.1 
30023 PLOT?, 9 ,TIS PLOT7.10.TI* 
30824 PLOTS. 15,RUS'RESTORE 
38025 PL0T9. 17. "1. PLACE MASSENET" 
38826 PLOT9. 19 -69140 RILLIEUX-LR 

-PAPE" 



30027 PLOTS, 21. "TEL. -7- 088.73.07 

30030 MU-1 

30035 GOSU833080 

30048 WAIT308 PLHY7.4.10 

38047 GOTO30200 

30050 PEM **I»*X***************XX 
XXX 

70032 PEM XXXXXX INSTRUCTIONS XXX 
XXX 

30053 REM W»»«H«»tlH»«»m 
St* 

30054 GO5U831054GETGS 

30062 FOPI-9TO19PLOT0. 1.3 NEXTI 

30864 PRINT^PRINT PRINT ' PRINT > PRI 
NT PRINT 

38866 PRINT"VOUS PEVE2 TPOUVER UN 

TRESOR ENGLOUTI." PRINT 

38068 PRINT-POUR CELA VOUS TRAVER 
SEREZ TROIS" 

38870 PRINT-TABLEAUX PIFFERENTS. 
DANS UN SENS PUIS DANS L 

'AUTRE..." 

30072 GETGt • CLS GOSUB3 1054 

30074 PRINT" TABLEAU 

1" 'PRINT 

38076 PRINT* 1- ALLEZ CHERCNEP L'A 

38e78PRINT-2- REWONTEZ-LA AU BAT 
EAU." 

30080 PR1NT-3- L'ENTREE DE LA CRO 
TTE VOUS SERA ALORS REVELEE. ". 

30082 PRINT-C'EST LA QUE L'AVENTU 
RECOMMENCE VRfllMENT." 

30884 PRINT-OUOIOUE TRAVERSER LES 

BANCS DE REOUINSFOUS ET OE POULPE 
9 "i 

30086 PRINT-SANOUINAIPES, C'ESTPA 
S OE LA TRRTE '" 

30808 GETGS CLS GOSU831054 

30090 PRINT" TABLEAU 

2"'PRINT 

30092 PRINT-1- RECUPEPE2 L'AMPHOP 
E BLEUE.." 

30094 PRINT > 2- ELLE FERA APPARAIT 
RE UNE HIJTRE AM-" 

30096 PRIMT-PHORE QUE VOUS PEVREZ 

AMENER JUSBU'R" 

30098 PRINT'L'ANTRE DE LR PIEUVRE 



30102 GETGS'CLSGOSUB31034 

30104 PRINT" TABLEAU 

1" PRINT 

30106 PRINT-VOUS DEVE2 ABATTPE LE 
<: 15 PtE'JVRES QUIVEILLENT FAROUCHE 
MENT "i 

30108 PRINT-SUR LE TRESOR. " 

38118 PRINT-CELA CALMERA L'ARDEUP 

PE LA MURENE !" 

30111 PRINT PRINT"POUR TIRER APplJ 
YEZ SUR ->" 

38112 GETG* ' CLS GOSUB3 1054 

30114 PRINT- TABLEAU 

4" PRINT 

38116 PRINT" IL VOUS FAUT TRAVERSE 
R LE TABLEAU 2. ..' PRINT PRINT 'PRI 
NT- PRINT 

30118 PRINT- TABLEAU 

5*'PRINT 

3OI20 PRINT-REOACNEZ LA SURFACE E 
r DEPOSEZ VOTRE TRESOR RU SEC. " 

30122 CETCR CLS CJ38UB3I054 

38124 IHK5< PRINT" DISPOSI 

TIONS CEMERALES- PRINT PRINT 

30126 PRINT-- LE DEPLACEMENT SEF 
FECTUE A L'AIOE OES FLECHES. * P 

RINT 

38128 PRINT"- ATTENTION A VOTRE R 
ESERVE D'OXYtiENE.-.PRINT 

30130 PRINT"- LA PIEUVRE EST XENO 
SPRINT 



38132 PRINT"- LA MURENE EST INVI 

NCIBLE.." PRINT 
38134 PRINT"- MAIS CONSOLEZ-VOUS . 
VOUS AVEZ 3 VIES" 

30188 PL0Tl,22,3'PL0T14,22.-BONNE 
CHANCE..." PL0T8, 24.12 PLOTl . 24, 2 
38182 PL0T2.24,"APPUYEZ SUR UNE T 

OUCHE POUR COMHENCER" 

30199 CETGR CLS C0T014 

30200 PEM *t**t**ft*«?«*»t»»>*«** 

30201 PEM **»*«* PRESENTATION «*« 
OS 

38205 REM *t*S«* OES MONSTRES **S 

30286 REM t*tt***X*t«*****SI***>* 

30287 PAPER0INK4 

30218 CLS TIR--VOICI LES MONSTRES 

DE L'ABIME >■ 

30215 PLOT0.1,18PLOT0,2. 10 PLOTl 
.1.3 PLOTl. 2, 5 PL0T4.1.TI«'PL0T4,2 
■ TIR 

30220 F0PI-5T025'PL0TB,I.2PL0T2, 
I, 10 -PLOTS. 1.1 NEXTI 

30221 PGR--PIELFVRE GEANTE" RER--R 
EQUIN FOU , ■ PS»-"POIJLPE SANOJINAIRE 

30222 MAR--MURENE AFFAMEE" PMt-"P 
OISSON rtORT-VIVANT- 

38224 PL0T3,5,"ilW"PL0T3.6."iln 

3A225 PLOT3,7,"k»o9-'PLOT3,8."kPto 
<l"'PLOT10,7,PC8'PLOTie.6.PG« 

3822? PL0T3.11."*b«,"'PL0T3.12."«b 
I " > PLOT 1 8 , 1 1 . RES ■ PLOT 1 8 ■ 1 2 , RE» 

38229 PL0T3,15."Cd"'PL0T3,16,"ccf 
:PLOT18-15,PSS'PL0T18.16.PSS 

38238 PL0T3,19-"»wxy" PL0T3.?8.'« 
.j-<v".pLnT!0.l9.MA» PLOT10,20,HHS 

38232 PL0T3.23."»i(".PL0T3,24."»7 
C'PL0TlB.23.PI1S'PL0Tie.24,PM« 

38235 PL0T1B.26.-APPUYEZ SUR - PE 
. TURN -" 

30237 REPEAT:UNTILPEEK<i208>H»AF 

38240 CLS INKS' PAPER4 

30380 FORI-5 T024' PLOT 1.1.18 NEXT 
I 

38312 PL0T2.11,2PL0T2.12,5 

30315 PL0T19. ?,3iPL0T19, 8.3 

38316 PL0T8, 7,"r"'PLOT0, 0,-r-p 
L0T5.11."AMPMORE" PLOTS, 12, "AMPHOR 
E" 

3031? PL0T22, 7 , " *. " < PLOTZZ , 8. "?." 

PLOT21 . 1 1 . "TRESOR" PL0T21 , 12, "TRE 
SOR- 

30320 PL0T5, J7,"VOULE2-VOUS LES I 
NSTPL1CTIONS ?" 

30325 PLOTS.lS.-VfJULEZ-VOUS LES I 
NSTRUCTIONS ?" 

30339 REPERT UNTILPEEKC #288 >-«980 
RPEEK( 1208 >-R95 

38340 IFPEEK(»208>-t95THEN30052 

30350 GOT014 . 

31054 CLSINK1.PL0T1,3,18'PL0T1,4 
.18 

31856 PLOT3,3,2PL0T3,4.3 

31BS8 PLOTIS.S.'REGLES DU JEU" 

31868 PLOT13.4."REQ_ES DU JEU" 

31061 PRINT. PRINT'PRINT.PRINTPRI 



34998 PEM «»*»*** CARRCTERES *»«» 
«* 

34999 REM *X*«*X**XS*tS>SS*X(*Xtt 

33880 FORC-46856TO47087 

35805 READY ; POKEC,Y NEXT 
35810 F0RC>46888T046847 
35812 READY POKEC.Y' NEXT 
35014 FORC-46368T04636? 
35016 REAOYiPOKEC.Y'NEXT 



3501B FORC-46376T046391 
35020 READY 'POKECY- NEXT 

35822 F0RC-46416T046423 

35823 READY POKECY ; NEXT 
35024 FnRC-46488T046415 
35825 READY POKECY NEXT 
33426 FORC-46368T046375 
3502? READY. POKECY 'NEXT 

35028 F0RI-1T025 READY ■ OC( I >-Y RE 
AOY'NW I )"Y 

35029 REROY -UfV. I >-Y NEXTI 

35030 REM XtXXt REOUIN XXXXX 
35032 DATA0.0,1 ,7,9,7,8.0 
35034 DATR8, 24, 63. 63. 63. 68. 32-32 
35836 PEM t**T» POULPE XXXXX 
35838 0ATA56. 6. 49. 15.3.68.0,0 
35840 DATA0.56,30,63.3I.14,0,0 
35842 REM XtXtS SABLE *XtT»* 
35844 DflTA4B.57.63.S3.63,63,63.63 
35046 PEM XXXXX PLONGEUR MONTE XX 



35052 DRTR20, 28- 28. 62. 54,54. 20,38 
35054 REM XXXXX PLONGEUR DROIT XX 



35060 DATA0, 0,28. 63, 36. 63.28,0 
35862 REM XXXXX PIEUVRE XXXXX 
35064 DATA?. 24. 16. 1.3. 6, 6, 12 
35866 PATA12- 14,7,3,63,32,46.31 
35868 DATA32, 19,55,47, 13, 13,23,31 
35070 DATA13,3I.63,61,37,1,28,32 
35872 DATA8. 49.59, 38. 58. 58. 42, 39 
35874 DATA51.51,6362.32.63,36.8 
35876 PATA8.48,e,4,4,24,8.12 
35G78 DATA16, 16. 16. 16.48, 32,0.0 
35080 REM XXXXX RMPWOPE XXX* 
35002 0ATAe,2e.42.28,62,62,28.8 
35884 REM ***** PLONC. 3' TABLEAU X 
f*» 
35086 DRTA62, 63.62.0. 62.83,62.8 
35008 0ATA3,48.31,3,31,48,3,8 
35890 DflTR56.8.59,63,3S,8,36,0 
35892 REM XXXXX MURENE XXXXX 
35894 pflTfie.e, 1,7, 15.8, 14,7 
35096 DATA3, 31 .63.47,63.31,3,63 
35890 DATA63, 63,63,59,29,43,62.63 
33188 REM XXXXX POISSON MOPT XXX* 

33102 0RTA8, 14,22.39.62,30-2. 1 
35104 PATA42.42,42,63,42,42, 10,0 
35186 PATAl.33,43,62.43.35.1-0 
35108 REM XXXXX BATEAU tSXXX 
35110 OATA0.0.0.48.56'63.31.15 
35112 DATA8.8. 0.0.8.63.63, 63 
35114 DATA8,8.13.13.7 ,62,62,58 
33116 0ATA28,28, 15, 13.7,62.62,58 
33118 REM ***** NUAGES XXXXX 
35120 0ATA8. 1.7.7.3,3.15,63 
35122 DATA8,33,49,51,55,39.63.63 
33124 DATA32-48 40.4832.32.^8-63 
35126 REM XXXXX CARACT.PLEIN XXX* 

35128 DATA63. 63,63,63,63,63,63. 63 
35138 REM *XXXX TRESOR *XXXX , 

33132 DBTA8, 8. 38.63.063.83-63 G 
35134 REM XXXXX REOUIN XXXXX 

35136 DATAl.2.4.60,4,2,0,8 

35138 REM XXX PASSAGE TAB. 2 XXX , 

35148 DATA8-33,0,43.41 .41 .41 .43 C 
35142 REM XXXXX HIPPOCAMPE XXXXXX . 
33144 DATR8,60.4B,33,8,28,62,62 
33146 0ATA28, 8,56. 32, 32. 16,0,0 t 
35147 DATA2, 8, 1.4.0,2.0.1 

35149 REM XX HUSIOUE DU VAINQUEUR , 
t$ *■ 
35158 DATA3. 10,10.3,8. 18,3, 10.70, 

3,8 
33132 DATA12,'3.6, 12.3.5, 12.3.3, 12 



3.2 

35154 DATA90' 



'-90-3.10 



13.8.1 



33156 DATA10, 70, 3,5.40. 3.6,40, 3, 2 
,40 

33138 DATA3.3.73.2.10.10.2.0. I".? 
.10 

35160 PATA70. 2. 8. 1 2. 2 . 6. 12. 2. 5- 12 
.2-3 

35162 DATR12, 2,2.90.2. 3.98 

35193 RETURN 

35194 REM ******»****»****»***t*t 
*** 

351=5 PEM *******x MUSI9UE ***XX* 

35196 REM XXXX HORT * TABLEAUX X* 
XXX 

35197 REM ****** OCTOBER ." U2 XX* 
XX* 

35200 PEM **IXXS*X**XSXX*XXXXXS*X 
**X 

35201 1FMU-0THEHG-I2 

35202 IFMU-1THEHG-28'C0T035228 

35212 P-80 H-60 C0T035237 

35213 P-81H-120 G0TO35237 

35214 P-88'U-38'GOT035237 

35215 P"0?l*-3 C0T035237 
33216 P-Sl-U- 120 G0T035237 
35217 P-98'U-6eGOT035237 

33218 P-91W-108 COT035237 

33219 P-22W-128 GOT033237 
35228 P-21 14-5 'GOT035237 
33221 P-25.H-5 C0T035237 

35222 P-95 M-5 G0T035237 

35223 P-93M-5 'GPT035237 

33224 p-esw-se 

33237 IFP-B0THENAN-10'BN-1-BO-3'C 
M-3 ' G0T033388 

35238 IFP-81THENAN-10 BN-12BO-2' 
CN-5 i G0T035388 

35239 IFP-07THENAN-10 BN«3 BO-3 
CN-5 ' C0TO33388 

35248 I FP-98THENAN-0 8N-12 B0«2 ■ 
CN-3 GOTO33300 

33230 IFP-91THENAN-S 
CN-3.COTO333B0 

33260 IFP-28THENRN-8 
CN-3 ' GOT033388 

33270 I FP-22THENAN-6 BN-8 BO-2 
CN-1 GOTO33380 

35271 IFP-21THENB0-4BN-12ii0T035 
400 

33272 IFP-25THEN80-5 BN-8 GOT035 
480 

33273 IFP-95TMENBO-3BN-5 ' GOT035 

400 

33274 IFP-93THENO0-3'BN-€ ■ C0T035 
35273 IFP-89THENB0-3 BN-10 C0T035 

35280 MAITHG-G*1 

35282 IFMU-0ANOG-20THENHL'-1 ' GOT 03 
5438 _ 

35284 IFMU-1ANDG-25THEN35430 

33298 GOTOG*33200 

33300 r*.lSIC1.2.AN-0 

35385 MUSIC2.BO.BN.B 

35318 MUSIC3.3-CN.8 

33313 PLAY?, 0,1,6888 

33328 G0T035288 
' 35488 HiJSICl-BO-l.BN,0 

35485 MUSIC2-BO-2.BN.8 

35487 MUSIC3.2.6-0 

35410 PLAY?. 8, 1.4800 

35420 GOTO35280 
> 33438 RETURN 

36888 REM XXXXXXXXXXXXXXXXXXXXXXX 

. 36818 PEM **»* C'EST FINI COUP! > 
5 XXX 

36028 REF1 *XXXXXXXX*IX*XXXX*X**XX 
XXX • 



-BN-10'BO-2' 
BN-3 BO-3' 
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Tl 99 BASIC SIMPLE 



▼ Suite de la page 2 

3930 CALL HCHAR I 20. 29, 49) 

3940 CALL HCHAR (20. 30. 4B> 

3950 CALL HCHAR (1 3. 1. 112.321 

3960 CALL HCHAR ( 1 5, 2, t.B) 

3970 GOTO 2160 

3980 CA-106 

3990 IF L<11 THEN 4010 

4000 L*10 

4010 FOR K-l TO INT(L»2.B> 

4020 IF (K'1)+(K>32)THEN 4080 

4030 CALL MCHAM(1?,K.CA> 

4040 CALL S0UND(I0,K.196.3) 

4030 CALL HCHAR( 17.*. 127> 

4060 IF K<-INT(L»2.9)/2 THEN 4080 

4070 CA=107 

40B0 neVt K 

4090 CALL HCHARI 18.K. 108) 

4100 FOR J=l TO 100 

4110 NEXT J 

4 1 20 CALL HCHAR I 1 B . I .117) 

4130 GOTO 2700 

4140 CALL CLEAR 

4150 FOR K-I TO NJ 

4160 IF SCCKKHSC THEN 4190 

4170 HSC-SC(K) 

4180 HSC*-N»(h i 

4 190 NEXT » 

4200 FOR 1*1 TO NJ 

421C FOR J=l TO 5 

4220 IF SC ( I I OWS(J) THEN *300 

4230 FOR K-3 TO J STEP -1 

4240 0UI51* *1 )=DW5it ) 

4230 Dw* <(■ * l ) =DW* o > 

4760 NEXT K 




4 270 0W5U1 -SC I 1 ) 

4TB0 OW*(J) =N» ( I> 

4290 GOTO 4310 

4 300 NEXT J 

4310 NEXT I 

4320 FOR 1»1 TO 5 

4330 PRINT TAB(B) i I; ": "8.QW* 1 1 it, 

OWS ( I ) ) : : 

4340 NEXT I 

43S0 IF NJ>1 THEN 43B0 

4360 PRINT ti-VOUS TERMINEZ LES 

ESAVEC UN SCORE DE: " ; SCO > ! "PTS 

4370 GOTO 4400 



©1 



© 



© 



© 



4400 INPUT 
4410 IF RS 
4420 IF R* 
4430 END 
4440 REM ••*•« 
4450 FOR K.= l TO 
4460 CALL HCHAR 



VOULEZ VOUS REJOUER" 
O" THEN 6B0 
'JN" THEN 4400 



Q 



.ASC(SEG*(0».K. 



44 70 NEXT K 
44B0 RETURN 
4490 REM •■•«••••••«••• 

4500 CALL KEV(3,A.B) 

4510 CALL SOUND <5.1< .! 

■\Z..'<: II B«0 iHf.N 4500 

4330 RETURN 

4540 F(EM- ••■••••••••••* 

4550 D*=NS(1) 

4560 CALL HCHAR ( 3. 77. 32. 

4570 LI =3 

45B0 C0=26 

4590 GOSUB 4440 

4600 RETURN 



4610 REM 

4620 Q»-STR»(TT) 

4630 CALL HCHARI9.9.32.3) 

4640 LI«9 

4630 CO-B 

4660 GOSUB 4440 

4670 RETURN 

46B0 REM •*•«•*•••■••••■• 

4690 W1-INT1L) 

4700 W2-L-INT(L> 

4710 W»-SEG»(STRtIW2>.2,21 

4720 CALL HCHAR(9,22,4B,3) 

4730 CALL HCHAR (9, 26, 4B. 2» 

4740 LL-LEN<STR»(W1) ) 

4750 IF LLOl THEN 47B0 

4760 CO-23 

4770 GOTO 4820 

47B0 IF LL<>2 THEN 4B10 

4790 CO- 22 

4600 GOTO 4B20 

4810 C0=21 

4B20 LI -9 

4B30 Q»=STR«{W1 )fc"M"Wg* 

4B40 GOSUB 4440 

4 850 RETURN 

4860 REM •••■■•••••••••■•• 

4B70 ON EP GOTO 4880.4910,4940.4910 

4BB0 LI -23 

4890 CO- 13 

4900 GOTO 4960 

4910 LI-23 

4920 CO-8 

4930 GOTO 4960 

4940 LI -23 

4950 CO- 13 

4960 CALL HCHAR (L I , CO, 127, I 7) 

4970 D*="RECORD:'tSTR«lHS(EP) H." t "S.H* (EP 



49B0 GOSUB 4440 

4990 RETURN 

5000 REM •••••»••••••••••• 

2010 ON I GOTO 5020. SOS0.50BO, 511 

5020 LI -4 

3030 C0-7 

5040 GOTO 3130 

5030 LI -4 

5060 CO- IB 

5070 GDTO 5130 

5080 LI -6 

3090 CO=7 

5100 GOTO 5130 

5110 LI--4 

5120 CO- IB 

5130 H=LEN(STRX(SC(I ) ) > 

5140 S-6-H 

3150 CALL HCHAR (LI, CO* 1 .48, S) 

3160 CO-CO+S 

5170 Q*=5TR»(SC< I > ! 

5180 GOSUB 4440 

5190 RETURN 

5200 REM ••••>*•■•••••••• 

5210 IF EP-2 THEN 5240 
5220 HH-0 
5230 GOTO 5260 
5240 V=V»4 
5250 HH-1.5 



5260 



-AL» 



A : N 



ISO 



5770 DEL- 



5300 GOTO S350 

5310 IF DEL THEN 5340 

5320 L=l 



Suite page 21 



C'est nouveau, pa went de sortir 



BIDOUILLE GRENOUILLE 



Le pelil Nicolo 

II s'esl passe quelque chose de 
terrible a I'ecoie : Rufus a ete 
renvoye 

C'est arrive pendant le coufs de 
calcul Agnan etait debout au ta- 
bleau en train de reciter les 
lables, surtout les comphquees. 
de 7 el de 8. parce que c'est le 
chouchou el Clotaire le regardait 
avec des gros yeux. Clotaire, il 
etait au coin, parce que c'etait 
lui que la maitresse avait mter- 
roge d'abord. 

Le Bouillon est entre - c'est 
notre surveillant - et tout le 
monde s'est leve pour le saluer. 
meme la maitresse, mais pas 
Agnan ni Clotaire parce quits 
etaient deja debout. En voyant 
Clotaire. le Bouillon avait pas 
fair content. 

•Regardez-moi dans les yeux, 
vous ! Gu'est-ce que vous avez 
encore (ait ? 

On I'appelle le Bouillon, parce 
qu ii dit toujours de le regarder 
dans les yeux. Clotaire etait tout 
rouge, et puis la maitresse a dit 
quelque chose a notre surveil- 
lant. mais on n'a pas entendu 
parce quelle parlait tout bas- Et 
puis ils sont sortis, 
Alceste. qui est toujours en tram 
de manger, a sorti une tartine a 
la confiture de son callable. Et 
puis Geoffroy s'esl tourne vers 
Rufus et lui a dit : 
-Alors, tu me les echanges, tes 
codes 7 

C'est des codes dordinateurs. 
parce que le pere de Geoffroy 
est tres riche et il lui paye ce 
qu'il veut. Rufus en a un aussi 
parce que son papa est policier 
On a pas comphs pourquoi ca 
aidait pour en avoir un. mais il 
nous a dit que c'etait normal. 
Rufus a passe un morceau de 
papier a Geoffroy. mais Eudes 
s'est retourne et a pris le papier. 
II a regarde. a roule des gros 
yeux et a regarde Rufus, puis 
Geoffroy, puis Hutus et moi. 
Eudes, il est drolement fort, il 
donne des coups de poing dans 
le nez a tout le monde. Alors 
Rufus il a rien dit, parce qu'il 
n'aime pas les coups de poing. 
surtout dans le nez. 
Eudes est monte sur son bu- 
reau, et il a commence a lire 
tout haut. 

-Sur Spectrum, pour avoir un 
nombre de vies infini sur Atic 
Atac, il faut faire POKE 36519,0 
Pour ouvrir et fermer les portes, 
POKE 37229.175 et POKE 



37260.175. Pour choisir le nom- 
bre de vies sur Hunchback, 
POKE 26888.0. puis POKE 
26903. nombre de vies et POKE 
24760, nombre de vies. Pour 
acceder au deuxieme tableau de 
Eskimo Eddie, POKE 24686.24 
et POKE 24687.76 Boris et 
Constantin T 

Agnan a dit quelque chose sur 
les tricheurs. el Clolaire a eclale 
de nre. Geoffroy a demande a 
Clotaire si il voutait un coup de 
poing. et Clotaire a dit que non 
Alors Eudes a donne un coup 
de poing sur le nez a Rufus, et 
Rufus men a donne un. 
A ce moment-la. le Bouillon et la 
maitresse sonl rentres. Le Bouil- 
lon a fait les yeux tout rouges, 
et la maitresse a fait des petits 
oh mon dieu oh mon dieu en re- 
gardant partout. Alceste etait le 
seul a etre assis. parce qu'il fi- 



moyen de recuperer un pro- 
gramme apres un NEW en fai- 
sant POKE 2048.0 : POKE 
44.24 : POKE 6144.0 mais qu'il 
ne pouvait plus modifier la liste 
apres. juste le sauvegarder Moi, 
c.a m'embetait parce que je ne 
comprenais rien Monsieur 8le- 
dur. notre voisin, a aussi un or- 
dinateur, et chaque fois qu'il en 
parle a Papa. Papa ne 
comprend rien et quand il re- 
vient a la maison il dit qu'il a 
mal a la tete. 

Alors j'ai dit a Joachim que ca 
ne mamusait pas et il m'a dit 
que c'etait pasgrave. parce que 
son frere a aussi un ordinateur 
et qu'il n etait pas la. C'est un 
Commodore 64 Dans la cham- 
bre de son frere, il y avait des 
papiers colles au mur 
"Nombre de vies illimite par Sa- 
muel Letecheur : 










nissait de manger sa tartine. Le 
Bouillon a dit qu'on etait tous 
suspendus trois jours, et Agnan 
s'est mis a pleurer parce qu'il 
r; avait rien fait, et la maitresse a 
dit que oui et que c'etait le plus 
sage parce que c'est le chou- 
chou Alors Eudes a dil que 
c'etait un sale chouchou et la 
maitresse la suspendu trois 
jours de plus. 

A la sortie, il etait pas content, 
tudes. Parce son papa, il est 
quand meme plus fort que lui et 
il n'aime pas qu'Eudes soit sus- 
pendu. Moi aussi, j'avais peur, 
parce que Papa et Maman n'ai- 
ment pas ca non plus Alors 
Joachim m'a dit qu'il venait de 
s'acheter un ordinateur aussi. et 
que je vienne le voir, J'ai dit 
d'accord. parce que je n'avais 
pas envie de rentrer tout de 
suite. 

Chez lui, il v avait plein de fils 
partout II ma dit que c'etait un 
Vic-20 et qui! avait trouve un 



Hard Hat Mack ; POKE 

16877,173 

User Strike : POKE 16475.173 

Miner 2049 : POKE 9450,173 

Crazy Kong : POKE 30624,173 

Snakie : POKE 33242.200 

Crossfire : POKE 27625,173 

Blagger 64 : POKE 3560.8 

Choplifter : POKE 801 1 , 1 73 

Sea fox: POKE 7337.173 

Poo Yann ; POKE 20634.173 

Q Bert et R Nest : POKE 

4446,173 

Sammy Lightfoot ; POKE 

3678,189 

Jumpm Jack : POKE 27904.173 

Frogger ; POKE 22341.173" 

Je lui ai demande ce que c'etait. 
mais il m'a dit qu'il ne savait pas 
parce que son frere ne voulait 
pas qu'il louche a son ordina- 
teur. Et puis on a entendu du 
bruit en bas, et son frere est ar- 
rive. Ouand il nous a vu. il avait 
pas lair tres content, surtout 
qu'il etait avec un de ses co- 



pams qui sappelait Jean-Phi- 
lippe Scotto Di Rinaldi. et c'est 
un nom qui fait drolement peur. 
je trouve Ils ont commence a 
discuter de lordinateur de son 
copain. il a un Oric Atmos. et on 
comprenait rien. avec Joachim. 
-Et comment on fait pour avoir 
des personnages super-puis- 
sants dans Tyrann ? 
-Ben. il faul faire ce petit pro- 
gramme : 
10 1= # 400 :REPEAT READ 

20 POKE I.VAL<"# "+ A$ ) :l = 
1+ 1 :UNTIL A$ = "40" 
30 DATA48.A9.CC.8D.1C,00,A9. 
B0.8D1B.00.A9.4C.8D ,1A,00 68 
40 

40 DOKE # 24B,# 400 
50 POKE # 24A.# 4C 
60 CLOAD "" 

Et puis il faul mettre la cassette 
de Tyrann, et faire RUN. Une 
fois le premier programme 
charge, altendre qu'il en soit au 
personnage numero 1, puis faire 
Reset ou Ctrl-C, Lister le pro- 
gramme, modifier les parame- 
tres et refaire RUN. Une fois 
tous les personnages crees. al- 
tendre qu'il affiche la presenta- 
tion de Tyrann, Puis faire Reset, 
et : 

CSAVE "",A# 9FFF.E# A120 
Une fois sauve, debrancher 
1'Oric, charger les personnages. 
puis le programme Tyrann. 
-C'est tout, a demande le frere 
de Joachim. 

-Ben oui. c'est tout, a repondu 
son copain. 

Mais comme on avait un peu 
peur du copain du frere de Joa- 
chim, on est partis dans le bu- 
reau de son pere. parce qu'il a 
un minitel. On a essaye plein de 
de codes, comme le 130 020 
194. le 113 020 194. le 117 132 
411. le 113001535P69045, le 
175021216 ou le 164 001 265. 
tous par le 613 

Mais on a arrfite parce que le 
pere de Joachim est rentre et il 
n'etait pas content du tout de 
nous voir la, et il a dit que c'etait 
lui qui payait les factures. et pas 
nous, et que je devais rentrer 
chez moi parce qu'il etait tard et 
que mes parents devaient sure- 
ment m'attendre. 
J'ai ete tout etonne. quand j'ai 
dit a Papa et Maman que j'avais 
joue avec un ordinateur et que 
j'etais suspendu trois jours, ils 
ne m ont pas prive de dessert. 



HOURRA, JE VOLE 



Tous les micros du marche onl 
leur simulateur de vol. Jusqu a 
present delaisses. les proprie- 
taires de MSX pourront dore- 
navant apprendre a voler 
grace a Mirrorsoft : 737 Flight 
Simulator vienl juste de sortir 
en Angleterre. Comme tous les 
programmes de cette catego- 
ric, ce jeu necessite un ap- 
prentissage fort long avant de 
permettre au pilole de realise' 
autre chose que des crashs 
spectaculaires. Sinon toutes 
les commandes habituelles fi- 
gurent au tableau : visualisa- 
tion en trois dimensions de 
I'environnement. tableau de 
bord en incrustation, controte 
du manche a balai. du palon- 
nier. des derives, des gouver- 
nes... Bref a recommander de 




toule urgence aux personnes 
disposant de plus de quinze 
doigts. 



TOUT VA BIEN 



Apres les difficultes d'Apple. 
d'IBM. d'Oric, de Dragon, de 
CBS. Cest le tour de certai- 
nes boftes de logiciels de don- 
ner de la bande Parker Bro- 
ther ne sort plus une seule 
cartouche de ses ateliers. Une 
greve illimitee bloque temporai- 
rement ( ?) leur usme amen- 
caine. Que lous les proprietai- 
res de Texas 99 se levent et 
hurlent : "Halte a la greve sau- 
vage r. 
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BRANQUES 
DE DONNEES 



Le G CAM. cest une SISI. une 
SIIS. une ISIISI. une SSISISIS, 
meeeerde une societe qui 
marne dans Tmformatique el 
qui vient de lancer avec An- 
tenne 3. TF2 FR5. T0F12. 
meeeeerde une filiate de la 
premiere chaine un sertique 
telemateur un sermat leque- 
lerveur. un teveurselematique. 
meeeeeeeeerde. . un nouveau 
machin minitel. C'est sur le 
098. 786. 435, 007. 
meeeeeeeeeeeeerde... sur Te- 
letel 3 Y a une semageire. une 
menagerie une gemanerie 
meeeeeeeeeeeeeeeerde un 
bidule pour se parler dans le 
posle Y'a aussi des manques 
de bonnets, des donques de 
bannees. des bandeaux entu- 
mes. meeeeeeeeeeeerde des 
fichiers a consulter El puis, la 
meeeeer qu'on voil danser le 
long des golfes claaaairs Mais 
quest-ce que j'ai aujourdhui 
vont nen comprendre les lec- 
teurs. meeeeeeeeeeeeeerde ' 

(NDLR La personne qui a 
ecril ce que la morale et la po- 
litesse moblige a ne qualifier 
que de papier voualere esl 
priee de passer a la caisse. 
elle esl viree ' Cest pourtanl 
simple d ecnre que G CAM et 
TF01 ouvrent un nouveau ser- 
veur sur minitel avec une mes- 
saqerie nullarde pompee sur 
Eslelle et une banque de don- 



nees protessionnelle sans inte- 
ret Faites le 61591 77 puis 
GP1. GP2 ou GP3 pour cons- 
laler I ampleur de la chose 
Thalassa. le magazine teloche 
de la mer. sevil aussi dans 
cette nouveaute qui a coute 
plus de 9 millions de francs 
lourds aux pauvres cons de 




contnbuables que nous 
sommes Ca s appelle PLU- 
RIEL. et cest normal puisque 
vous vous lerez avoir une 
deuxieme fois en payant 60 
balles de Iheure pour vender 
ce que ion fait de voire po- 
gnon ) 



A CEUX QUI N'ONT 
RIEJV A FAIRE 



Sierra va lancer incessament 
sous peu. dans notre doux 
pays, le logiciel a cote duquel 
les simulateurs de vol sont de 
la gnognotte. Dambusters 
vous renvoie a repoque benie 
de la derniere guerre mon- 
diale, aux commandes dun 
bombardier anglais le Lan- 
caster Mk 1 Cet avion a eu 




aurani ce conim. un roie exire- 
memenl important a jouer puis- 
qu'il permit le bombardement 
de multiples barrages hydrauh- 
ques dans toutes les zones 
controiees par les Allemands. 
Aujourdhui, ce soft vous invite 
a renouveler les attaques de la 
Royal Air Force (RAF) a bord 
de voire Commodore 64 



Novice, vous aurez d'abord a 
ingurgiter un manuel dune cin- 
quantaine de pages pour mai- 
tnser completement votre bom- 
bardier Apres ces quelques 
heures d'entrainement vous 
pourrez partir survoler I'Europe 
au cours de missions bidons 
vous ouvrant les portes a la 
haute voltige et a la survie 
face a la DCA et aux chas- 
seurs. Puis au slade ultime du 
logiciel, vous pourrez revivre 
les attaques exaltantes au- 
dessus de lAllemagne. de la 
Hollande, du Danemark ... Vous 
pourrez meme reecrire Ihis- 
loire en reussissanl des bom- 
bardements qu: aboutirent a un 
echec sanglant a I'epoque. 

Malgre lobstacle classique de 
I apprentissage, ce soft ne me- 
fite qu'une chose : de ladmira- 
tion. Rien n'a ele oublie pour 
vous convaincre de ne pas 
abandonner : les graphismes 
realistes et omnipresents of- 
frent un controle visuel direct 
de toutes les commandes de 
votre Lancaster et les manipu- 
lations entierement realisees 
par le biais du joystick facilitent 
grandement lexploitation du lo- 
giciel et de ses astuces Sans 
aucun doute, c'est le meilleur 
logiciel de simulation de vol 
existant actuellement sur ce 
micro. 



POUF ! UN AUTRE MSX 



Mais il ne sera pas encore de 
ce cote-ci de la planete avant 
quelques mois. En exclusivite 
vous n'aurez pas sa photo vu 
que la photocopie de la docu- 
mentation, que nous avons 
volee aunespionslavo-tcheque 
(sans provision), vient du 
Japon via Hong-Kong. I'Austra- 
lie, la Laponie et le Beam. 
Vous vous rendez compte ' II a 
meme fallu traduire les spa- 
ghettis qui leur servent d'ecn- 
ture en frangais pour vous le 
servir tout chaud. 

16$ Vi9%$ EH6fl&£$ tfifi 
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La nouvelle machine sort des 
ateliers de Casio et possede 
un nom particulierement sim- 
ple : c'est le PV 7 Personal 
Computer MSX . Comme pre- 



mieres caractenstiques nous 
remarquerons le faux clavier 
en gomme massive, les dimen- 
sions restreintes (deux fois 
plus petit que les autres MSX), 
les ioucnes curseur mniuia- 
cees par un Joy Pad (une 
seule grosse louche a quatre 
contacts), les multiples ver- 
sions proposees de 8 a 64 Ko 
(cinq versions au total) D'of- 
fice Casio se demarque de la 
concurrence en sonant simul- 
tanement des logiciels (Exci- 
ting Jockey. Exciting Baseball, 
Sky Commando, Game Land. 
Basic for Beginners...), un ma- 
gneto {un datasserte pour etre 
a la mode), des joysticks, un 
connecteur pour deux cartou- 
ches, des extensions memoire 
16 ou 32 Ko et surtout un 
ecran a cristaux liquides 
Les prix japonais semblent rai- 
sonnables : le 8 Ko coiite 1150 
francs, le 32 Ko 2000 francs et 
le 64 K 2600 francs. Pour les 
extensions, seul lecran est 
suffisamment original pour va- 
loir le detour dans votre porte- 
feuille : 800 francs Tous ces 
prix sont des conversions 
yens-francs, alors mefiance a 
I arrives dans notre doux pays 



1NHK.RAMES CONTRE MCC 
A QUI LA PALME ? 



La palme du distributee pro- 
posant le plus de litres nuls au 
public, bien sur Cette fois, 
c'est Infogrames qui reprend 
une longueur d'avance sur son 
concurrent le plus serieux 
MCC et ce grace au pro- 
gramme Logor . un logo pour 
Oric. Non ! Je suis vraiment 
trop dur avec nos amis lyon- 
nais : le soft n est pas comple- 
tement mil. loin de la. mais de 
trop nombreux details genent 
une utilisation optimum de 
celui-ci. La symbolisation de la 
tortue ressemble plus a un 
dessin rate qua une indication 
serieuse, lanalyse syntaxique 
des ordres completement 
inexistante freine rapidement 
lenthousiasme de lutilisateur. 
les abreviations choisies n'ont 
nen d evident a part pour I au- 
leur . Jen passe, mais vous 
avez deja une idee du manque 
de maniabilite de ce produit 
destine au, je cite, "neophyte 
de la programmation" Bref un 



logiciel congu pour les inno- 
cents de la micro-informatique, 
seulemenl praticable par les 
habitues de I'Oric : une realisa- 
ton completement inutile sous 
cette forme. 




C'est nouveau, $a vient de sortir 



LE PALEOLITfflQUE EST 
A LA MODE 



Vous vous souvenez peut-elre 
de eel etrange bonhomme 
juche sur sa roue de pierre 
roulant a folle vitesse a la res- 
cousse dune belle el pulpeuse 
blonde 7 B.C's Quest for 




ment le premier episode en 
qualite el en originalite. 
Mais les programmeurs de 
Sydney Development n'ont 
plus le monopole du genre : 
les gars de chez Statesoft pro- 
posenl depuis peu Frak (Com- 
modore pour le moment), un 
melange de jeu d'arcade et de 
slrategie conservanl les princi- 
pes graphiques et sonores des 
logicieis ci-dessus. L'action. si 
elle peut vous detendre au de- 
part, vous enervera progressi- 
vement au fur et a mesure de 
la progression en difficulty. 
Deux choix soffrent alors a 
vous : vous jetez le soft et on 
en parle plus ou vous etes pa- 
tient et dote dune excellente 
memoire d ou vous evitez tous 
les obstacles sans les voir et 
vous arrivez au bout du pro- 
gramme en quelques purs. 



Tires (Apple. Commodore et 
Amstrad) donnait naissance. 
pas plus lard que lannee der- 
niere. a une nouvelle vague de 
logicieis bases sur un gra- 
phisme digne de Tex Avery 
(vous savez Droopy, Bugs 
Bunny...) et des aventures 
toutes anterieures au Deluge 
Les auteurs de B.C's Quest re- 
cidivent mechamment avec 
Grog's Revenge meme 

heros mais lieux et quete drffe- 
rents. Des gags pleuvent a 
chaque galere : chutes dans 
les ravins, rencontre dune fa- 
laise, mangeur de roue en 
pierre... A chaque episode 
sons et lumieres vous convain- 
quent d'aller y voir plus loin et 
de repartir a I assaut de ces fi- 
chues montagnes. Pour une 
fois. la suite decasse large- 




D'un point de vue general, n 
me parait important de souli- 
gner la qualite exceptionnelle 
de la mise en forme de ces 
jeux, que vous pourrez acheter 
rien que pour le plaisir des 
yeux et des oreilles. 



TOUTBAISSE... 



Meme les microdisquettes Sin- 
clair, qui passent de 76 a 39 
francs. Alors. avant, e'etait de 
lescroquerie ? Non. Sinclair 
vient de se payer une nouvelle 
usine toute neuve el perfor- 
mante et vient de changer de 



technique de fabrication. Tant 
mieux. 

BfcHToT l't>MlMW_ 
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FAITES FORTUNE AVEC 
VOTRE MAC 



Jusqu a aujourdhui. il etait ne- 
cessaire d'etre soil develop- 
peur, soil espion pour pouvoir 
ecrire un programme sur Ma- 
cintosh. Les documentations 
techniques n'etaient en effet 
destinees qu'aux profession- 
nels et aux petits malms suffi- 
sammenl debrouillards pour 
obtenir des photocopies de la 
doc. Alain Andheux et Christo- 
phe Droulers vendent la 
meche et proposent un bou- 
quin pour la programmation de 
voire petit monstre blanc. Les 
chapitres developpes vont de 
la description des "gesttonnai- 
res". utilitaires residents dans 
la Rom jusqu'a un exemple de 
programmation. en passant par 



les langages de programma- 
tion et quelques adresses 
utiles de la Rom. II vous en 




coutera environ 150 francs et 
vous pourrez sans doute ecrire 
le logiciel qui vous rapportera 
gloire et fortune. Inch'Allah ' 



INFOGRAMES VEUT 
VOUS PIOUER 100 BALLES 



Saviez-vous qui I existait un 
club Infogrames ? Mille adhe- 
rents, parait-il y son! deja ins- 
crits. La cotisation annuelle 
etant de 100 francs, ca fait du 
10 batons dans la poche de 
Monsieur Info et de Madame 
Grames Juteux, non ? Pour ce 
prix les adherents ont droit a 
un bulletin mensuel du club et 
a un numero de telephone se- 
cret ou on leur distille les der- 
nieres nouveautes d Infogra- 
mes a acheter durgence. Ah, il 
y a aussi des rencontres regio- 



nales (a quelles dates ?), des 
concours trimestriels avec de 
nombreux prix (cest quoi des 
nombreux prix. des cassettes 



«* '//V — '•* 

Infogrames 7) et si vous parrai- 
nez trois nouveaux adherents. 
vous gagnez devinez quoi ? 
Une cassette Infogrames ' 



VOUS ETES RICHES ? 
DEPENSEZ PLUS 



European Media Business 
n hesite pas un instant a vous 
proposer la solution la plus 
chere du marche pour avoir 
chez vous. des logicieis ex- 
iraordinaires Mais connectons- 
nous d abord a leur centre ser- 
veur : Telechargement 

France Premiere Pour ce 
faire. vous devrez acquitler un 
droit de raccordement Pan 
593 francs dans le cochon. 
Payez ensuile labonnemenl 
au serveur. Repan 1 48.50 
francs dans la poche. Vous 
voulez vraiment vous connec- 
ter ? OK. Abonnement a Mini- 
tel rerepan 80 francs (saul 
pour les chanceux qui Font a 
loeil) Vous avez votre micro 
(avec un drive) d une part et le 
minttel daulre part Le cable 
pour retier le lout : pas cher 
26.80 francs 

Vous pouvez maintenant appe- 
ler TFP pour choisir un soft 
dans leur catalogue. Tous les 
programmes publies dans Gol- 
den (done pour Apple) sont a 
loeil, tout comme ceux de Ha- 
chette Jeunesse (trois litres 
dont trois nuls). En revanche 
les logicieis d'Hatier coutent de 
40 a 50 francs (pour Master- 
mind, champs de mines ou 
Othello) ou 220 francs pour les 
programmes pedagogiques 
Reste les programmes propo- 
ses par EMB de 95 a 240 
francs pour des utilitaires et 
des passe-temps 
Ad mettons maintenant que 
vous vouliez juste quatre logi- 
cieis parmi les payants. Calcu- 
lons le cout moyen du soft : 

- branchement au serveur : 
848,30 francs 

- un logiciel de communication 
(obligatoire) : 240 francs. 

- deux jeux et un Iraitemenl 
d'images : 250 francs. 



Nous arnvons au total a 
1338.30 francs au total Nous 
di vi sons par quatre Prix 
moyen du logiciel 9 Une paille 
334.58 francs Et vous avez un 
Olhello. un Mastermind, un lo- 
giciel de communication et le 
traitement d images 

Daccord. plem de logicieis 
sont graluits au chargement. 
mais qui paie le telephone, la 
disquetle. labonnemenl . 
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Hein ? Et pour charger quoi 7 
Des softs qui sont publies 
dans tous les journaux infor- 
matiques de la Terre (meme 
en Papouasie. cest vous dire) 

Conclusion : si vous voulez de- 
penser plus pour bidouiller 
avec des sous-sous-program- 
mes, abonnez-vous a TFP ! 



DE LA SALIVE PLEIN 
LE JOURNAL 



Possesseurs d'Arnstrad. vous 
allez assister a une escroque- 
rie en direct Vous allez tene- 
ment baver en lisant ce qui 
suit, que voire exemplaire de 
l*HHHHebdo sera tout plein de 

Meet the Gang! 




salive et que vous serez obli- 
ges den acheter un autre, to 
balles de plus pour nous, 
merci. 



Amstrad. done : voici la liste de 
certains titres qui viennenl de 
sortir en Grande-Bretagne. 
Mais les importateurs ne sont 
pas presses, il vous faudra at- 
tend re encore. 

World Cup Football est ladap- 
tation dun )eu qui existait deja 
pour C8M 64 Cest aussi le 
cas de Heroes of Karn. qui be- 
neficie dans cette nouvelle ver- 
sion de graphiques fabuleux, 
de Everyone's a Wally et de 
Pyjamarama. ces deux der- 
niers existant pour Spectrum 
Sorcery est original, de meme 
que Chopper Squad Le cas 
de Roland Goes Square Ba- 
shing est plus nuance : cest 
un laux G'Bert, heureusement 
mieux que loriginal. Traduction 
du titre : Roland destroye des 
cubes. 

Cote previsions, Indiana Jo- 
nes's temple of doom et toutes 
les aventures de Scott Adams 
devraient sortir d'ici deux mois. 
C'etait bon ? 



AMSTER JOVIAL 



Et un nouveau club, un ! Cette 
fois-ci. cest Amstrad qui sy 
colle avec I'Amster club 
Comme d habitude, bulletin of- 
ficiel penodique. bibliotheque 
de programmes, stages de for- 
mation et conseils techniques 
vous seront dispenses moyen- 
nant finances. Si vous habitez 
Nice, Bayonne. Brest ou Stras- 
bourg, il vous sera sans doute 
difficile de venir a toutes les 
reunions du samedi qui se 
tiennent au 68 de lavenue 
Paul Vaillant Couturier a La 
Courneuve (93120), vous pou- 



vez essayer de telephoner au 
(1) 865.7949, si cest un club 
serieux. on vous repondra. 




AUTO- POM PA 

Nous avons annonce la 
d Alien 8. le nouveau jeu 
mate voici quelques t 
Nous avons enfin pu 
sayer ; cest une copie 
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e Knight Lore, du meme 

Achetez plutdt lorigi- 

stoire de ne pas vous 

I'impression d avoir ete 



DEULIGNEURS , C'EST DU BEURRE 

Haaaaaa ! Satisfaction ne rime pas avec deuligneurs Steprtane COFFINET magouille et bidouille la tete de ses 

mais c'est sans importance : vous vous eclatez comple- caracteres Le neo-gothique est ne ! 

temenl et je vous en lelicite La crealivile. ya hsa fJvre 

(merci Clou) comme dirait Jack Lang (Dieu ale son % Listing TEXAS 

ame) Bien. cette semaine rien d exceplionnet. que des i for t=35 to <?o : 



compositions genoles Accessions done 



Raymond GAYTE nous envoie un sympathique message 
direclement extrait de la memoire de son micro 



: CALL CHflRPAT (T.dVi ; : 
F»=SEG« ( A«. I . 1 ) : : IF P 
ELSE IF P%.---2~ THEN T« 



FOR 1=1 TO 16 
»="8" THEN T»="l 
-■6" ELSE T*=P* 
2 F»=F«!.T« i: NEXT I II CALL CHAR(T.Ft): 
r F«»"" sj NEXT T n CALL SCREEN(15):i F 
OR X»t TO 14 :: CALL COLOR ( X. 2. 0. 1 . 2. a. O 
.B>:i NEXT X : : ON WARNING STOF || IN 
DODO 



H Listing COMMODORE 64 rf 1 

P0KE33281-1 PRINTS" F0RT-2T016P0KE646, 
TP0KE211,8.3-T/2:pRINT"r' FRENCH ORDlNfl j^ 
TEUR POU"; w 

1 F0RU-1T0T/2 PRlNT"fiH n , NEXT PRINT"i", : PR Yannick LEJAIL remporte le cocotier (plem de deux 
int:nextfort-ito256 : svs39082'PRINT:next softs) grace a son utiliiaire La sauvegarde dune page 
■ SVS37726FORS-1 TOT: NEXT RUN de graphisme dans une zone protegee de la Ram permel 

■fa a I'utilisaleur de continuer a travailler sur l ecran ainsi 

Fabnce BELLET vous envoie traverser la galaxie a bord libere Pouf recuperer cette page il suffit de rappeler le 
de votre super vaisseau a pedales Les asleroides sont P f ogramme. 
mortels mais vous disposez de dix missiles pour vous 



AIMEZ-LELESUNS 
LES AUTRES 

Et hop ! Un nouveau jeu de 
Jeff Winter (La revanche des 
chameaux mutants, psychede- 
lia) pour Commodore 64 



HAM mm 




Mama Llama C est edile par 
Llamasoft et ca parle de 
Llamas mutants A mon avis, 
Jeff Minter est mutant. 



sortir des mauvais pas 
\ Listing THOMSON 

POUT con-nencef- . isper SCREEN. ©. 0:ClS:RUN 

1 CONSOLE3:A=STICK.0)!PSCT(L,5>- "iS=S*L 
:C0L0R3:FORM=9T05:LOCATERNI>«38, 24i PRINT" 
»•"; :NEXT!PRIMT:L=L*(A=7)-(A=3)-(La>+<L 
;39'tU=SCREENCL.5):PSETcL,5)"V",7: IFSTRI 
C-e ■THEtlT = T*i:LIME>L,6>-(L 1 .e3>CHR»U24), 
5:PLAV04L3D05IPL24":LINE<L,fe>-<L,23>" * 
ELSEPLAVO2L1D0 

2 B0X<6, e ) -1-328, 23>. 1 : COLOR3:L0CATE2, 1,8 
:PPINT-SC0RE"TfiB(25^TIR-i COLOR! :L0CATE9 
, l:PRINTS:L0CflTE38,i:PRlNTT:H=H-18»(T>9> 
:IFH=42THEMATTRBI, 1 : F0RK=I8T028: COLORINT 
<RND»6) + i: LOCATE 1 1,K: PRINT -CfiME OVER. .": 
PLAY-04L3REtFASIFAP-:NEXT: LOCATES. 23: ATT 
RBe.QlEMDCCSEI 

Renaud DAUBERCIES a cree un mode inverse pour le 
Canon Vous pourrez meme admirer le resultat sur I tm- 
pnmante avec le deuligne de Hard Copy public prece- 
demmeni 

% Listing CANON X07 

i AS-INKIVS: IFA*°-'THEN1ELSEFORI-OT07:B> 

VAL<C**»1ID«iF0NT»iASCiA«1 i ,1*3*2,21 1X0RC 
2 B<II-B:NE»T:F0NT*(AI-'B10),Blll,e<2l,B 

<3l,BI4),F(;i,B(6),B17l ■IFBINTCHP.i.S I 16 



lL Listing AMSTRAD 

IB MEMORY L6864F0R I»l TO 20 ■ RERft 
f» POKE i6B64+I,VflL<"t"+P»> NEXT' 
DATR 21.0.C0,ll,7 R,6 B. 18.6.21.7 
fl.6 B. 11,0.00. 1 .8,40, ED, 80. C9 ENt' 
20 REM T«P*r CRLL 16863 Pour Muvt 
r un* miff «n RRM *t t«P*r CRLL l> 
686D Pour U r»*ff Ichcr.C* ProSrim 
•w nt r*lo9«*bli « tout* adms* 
lnftrltur OU «9« 1 a t6B66. 

■A 

Frederic BERNHEIM gagne le prix d humour en cadence 
Un silence imposant est necessaire durant I execution du 
deuligne ! 

\ Listing APPLE 

10 N = 200:1 = 5: POKE 4*383,0: POKE 
49287, 0:A« - ■ — Y'iM ■ 



II I'lM • 



■ : :*» = 



; K0ME 



Gerard D0VILLERS stoppe et relance le listing par la 
louche SHIFT ou SHIFT LOCK Le lancemenl seffectue 
par SYS 679 el I arret complel par STOP RESTORE 

\ Listing COMMODORE 64 rf 2 

1 DRTR120. 1«9- 180. 141,20 3, 169,2. 141,21,3 
98,96.32. 139.233. 173- 141.2-201, 1,240,246 

2 DHTR76.49.234 F0RI-679T07B4 PERDR POKE I. 
R S-S+R NEXT PRINT' , ';YS679 , ' IFS<>2<»62THENP 
RINT"EFPEUP DRTR" 



• 00 0" r TEXT ; 
1 - I - .1 IN » N - 1 1 POKE 49 
3fl*,0: FOR T - 1 TO EXP <1) 
: NEXT Ti POKE 49387, 0;K ■ H 
* 1 : UTAB 5i KTAB Hi PRINT 
A»i UTAB 6: HTAB H: PRINT 8* 
: "TAB 7; HTAB H: PRINT C*: UTAB 
8: KTAB Hi PRINT M: FOR U = 
1 TO N: NEXT Ui IF N ) - 10 
THEN 20 

tfcH(5~ewWAf5$E2 i'MiSToS 

< to t*& <pi f*if*T49^». 

~^1 r*EXT tisr CLofiO) 

Oeulignement votre a la semaine prochaine 




hippo T^^^r^r 

i r\yQT / " r automatique / 

C'esr toujour* japonais. c'est et Spectrum. Pour Apple, 
toujour* costaud, male, en Thomson, Texas, Machbro et 
plus, ca a un autotire. Cast a Trucmuehe, TlnOn : ca ne 
dire que, si vous lalssez un de marche pas ou slots II fsudrs 
vos dolgts appuye sur un des bldoulller. 
boutons. le Or sera a rSpSth- Ah, au fait, c'est plus cher 
bon, c'est pas beau ca ? Pour que I'ancien, 120 belles I De 
le rests rien de change' : trots touts (aeons, de I'ancien II n'y 
boutons de Or, urte bonne en s plus, alors.... 
prise en main et quatre vert- C'est bon, c'est pas trop 
touses pour le culler d4flntti- cher ? Envoysz vos sous 
vement sur la table de Is sails spies avoir rempll Is bon de 
a manger (super-pratique pour commence ci-folnt. Le mlnls- 
ies rapes 1) Prise standard tre du commerce exterteur du 
pour Amstrad, Atari, Commo- Japon vous remercie blen 
dors 64, ktSX, Vic 20. Compa- baa. 
tlble avec lea Interface* Otic 


-**%% 


^^av 


^ 


is-d-d-d-d-d-d-d-d-d-d-dd-d-d 
Bon de commande a decouper et a renvoyer a 
SHIFT EDITIONS, 27 rue du General Foy 75008 
PARIS. 








DATE : PU-120F ... x_. - .... F 

frais (Tenvoi = +1SF 

cheque joint : TOTAL m ™ F 



HEBDOGICIEL SOFTWARE 

Le logiciel a sa juste valeur 

Les nouvelles boites jaunes sont arrivees ! Six logiciels francais de qualite par cassette et un prix raisonnable : des 
produits signes SHIFT EDITIONS ! 



Mrraxaa 



poo- 

L AVENTURE SUR ORtC 



Un jeu d avenlure ca va Six jeux d'avenlure, bonpur les nuils blanches ' Vousal- 
lezdevenirtouratourexplorateur, espion. egyptologue, Cosmo naute. superhe- 
ros etvichmeduceiebre doc teurParanaud Si vousaimezau bout deces six cas- 
se-lfite sans problemes de sante et sans [roubles mentaux, vous deviendrez 
sans contesteun des grands maitresmondiauxdu jeu d'avenlure 'Une cassette 
pleme a craquer pour 120 francs 

Vo tre One utilise lelangage mac tune pour reflechire! vous navezmal heureuse- 
merit que voire cerveau humain pour le batire au Morpion ! Le "Laby 5" qui suit 
nest pas plus facile cinq etages. des trappespartout el sesascenseurspas Ires 
tiables! Dans "Oil leak", vous devezreparerune voitureau beau milieu de gran- 
desflaquesd'huile LesgouHres. les ravins el les precipices de"Ponl-levis"vonl 
vous rendre fou ? Le ■Parsec" tonce a toute Vitesse et la "Guerre nucleaire" esl 
toul simplemenl le premier grand Waigame pour One 120 francs la c 



"Dork crystal" est sans nul doute un 
des plus beaux et rapides jeux 
eerits pour Tl 99 : votre heros doil re 
cuperer des fragments de cnstal dans 
le I a by n nth e qui est le lieu a la mode 
pour tous les monstres branches de la 
galaxie ! Les aulresjeux sont tout aus- 
si efficaces : unsuperbesauteursursa 
pyramide. un duel pour deux joueurs 
en armure, un casino avec 3 jeux de 
cartes, une centrale nucleaire et "Mis- 
sion penlleuse" qui vous transporter 
dans une jungle hostileen deux somp- 
tueux tableaux 120 francs les 6 jeux 
en basic etendu 



• 



BASIC ETENDU 



■ 



•crss* 8 " 



Cn#niit> Spvc Kong 

L | SPEC TRUM N-1 



Des jeuxd arcadea gogo change* le 
coursdel'histoirea Peart Harbour, gui- 
dez Al ben et Kong dans leur pyramide 
favorite, jouez a un jeu de balle en 
tieremenl nouveau, construisez 
d'enormes murs avec votre grue de 
chantieretregalez-vousavecde la te- 
quila plus vous en buvez. plus vous 
desamorcez facilement les bombes 
de "Caramba"! Six super- program- 
mes pour 120 francs 

Deux jeux d arcade ou vous serez 
un courageux pompier, ou pilote 
d'unemotodecoursefonctionnantau 
langage machine Viennent ensuite la 
reflexion avec "Puzzle" et la stategle 
avec "Mineur* oil vous pourrez organi- 
ser des competitions jusqu'a S 
joueurs L'aventure enfinavec'L mca 
dor, un labuleux jeu graphique en 3 
dimensions 6 super -programmes 
pour 120 francs 






Des jeux. de I'electncite et du plaisir, 
voiladequoifairefretillerles electrons 
dans voire M05 el quand en plus ces 
jeux sont multiples etdouze vous envi- 
sagerez quelques nuits blanches 
dOlhello.de Poker.de Memo 7 Des 
que I'immobilite vous paraitra insup- 
portable, partez pour lespace pro- 
fond (Worp) ou retrouvez vosamis(fi- 
chier d'adresse) Vous verTez. vous 
n'en croirez pas plus vos yeux que vo- 
tre M05 n'en craira ses jeux ' 
*********** 
^ BON DE COMMANDE A REN- 

* VOYER A SHIFT EDITIONS, 27 

* rue du Gal Foy 75008 PARIS. 













* ORICN"4 




120 F 


* ORICN°5 
SPECTRUM N u 




120F 




120F 


* TEXAS N" 4 




120F 


.. ZX81N°1 
* M05N»1 




120F 




150 F 


* 






*. -REGLEMENT JOINT 


OOF 



DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 



Un concours de plus! 
Rlen de blen original dans 
cette formula, pourtant nous 
essayons de faire quelque 
chose de different: nous orga- 
nlsons un concours perma- 
nent tous les mois et tous les 
trimestres! Et avec des prix 
dfgnes des programmes que 
vous allez nous envoyer! 
De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes 
sur la grille recapitulative 
mensuelle 

Pas de jury, pas de decision 
arbltraire, HEBDOGICIEL n'in- 
tervenant que dans le cholx 
des programmes qui devront 
etre ORIGINAUX et FRAN- 
CAIS. SI votre programme 
n'est pas tout a fait au point, 
un de nos special istes vous 
dlra comment I'ameliorer pour 
pouvolr nous le proposer a 
nouveau. 

Pour participer, II vous sufflt 
de nous envoyer vos pro- 
grammes accompegnes du 
bon de participation ainsi que 
toutes les explications neces- 



salres a rutlllsatlon de ce pro- 
gramme. 
Bonne chance! 

Reglement; 

ART.1: HEBDOGICIEL organise 
de tacon mensuelle et Irimes- 
trielle un concours dote de prix 
recompensant le meilleur logiciel 
du mois et du trimestre. 
ART.2: Ce concours est ouvert 
a tout auleur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L envoi dun logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL 
constitue lacte de candidature. 
ART.3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publics dans le 
journal. 

ART.4; Ce sonl les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuels et 
trimestriels. 

ART.5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 



Prenom 




Age 


Profession 


Adresse 




N telephone 




Nom du program 


ne 


Nom du materiel 


utilise 



ART.6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la 
cloture du concours trimestriel. 
ART.7: Le present reglement a 
ete depose chez Maftre Jauna- 
tre 1 rue des Halles 75001 
PARIS. 

ARTS: HEBDOGICIEL se re- 
serve le droit d'interrompre a 
tout moment le present 
concours en avisant les lecteurs 
un mois avant. 

ART.9: La participation au 
concours entrafne lacceptation 
par les concurrents du present 
reglement. 

HEBDOGICIEL: 27 rue du Gal 
Foy 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus fort pourcentage de vote 
par rapport a la totallte des 
programmes recus pour un 
meme ordlnateur. 
Alnsi, pas de favoritisme pour 
les ordlnateurs plus pulssants 
ou tres diffuses. 



BON DE PARTICIPATION 



declare etre I'auteuf dece programme qui n est ni une imitation m une 
copie dun programme existant Ce piograrr.me reste ma propnete et 
j'autonse HEBDOGICIEL a le publier La remuneration pour les pages 
pubhees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire 

(signature des parents pour les mmeurs) 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne dun descnptif defaille du materiel utilise. 
dune n otice d'utilisation du programme Les supports des program- 
mes publies sont conserves, n oubhez done pas den laire une copie 
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rn 
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BAP UQ 


HR 
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VAN BEETHOVEN 


HECTOR 


IANKA1 TACK 


SIOUX 




POKE I - 


ATARI 




ECHEC 






ORIC 


UWEAUll 
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EXL 100 


REUNION 




LASVRINTHE 




SPECTRUM 


BAHBISHT ". OAnON 




zxn 


Kill HI 




IRS 80 
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Tl 99/4A 
(basic simple) 


SUPEfl II BASIC 


SPElEOGIDEl 


USS0UAI2 




Tl 99/AA 
(basic etendu) 


GREEN PEACE 


Kl 


CUICUI/MMT 


CRAZY OUER TAXER 


TO? 


MIFRES/MOIS 


aJLB 


WORP MASIER 


SWIM? 


MSX 




GALIERY 


I0ME1 :■ 


"■ 



al iy ■ inUCC I P as bien 9 rave! Toutefois. tou- ORIGINAUX du BULLETIN de 
AUA WfirlCO ■ jours dans un souci d'equite, VOTE; pas de photocopies. 
nous n accepierons que les cela serait trop facile! 

Date limite d'envoi du bulletin de vote le Jeudi 16 
Avril a minuit. 



Abandonnez quelques instants 
vos claviers et prenez votre 
plus belle plume pour remplir 
le bulletin de vote ci-contre. La 
redaction d'hebdogiciel compte 
sur vous 1 
La marche a suivre est simple: 

- Reperez dans la grille cl- 
contre le programme pour le- 
quel vous voulez voter ainsi 
que celui pour lequel vous 
votez en second (le second 
nous permettra de rendre plus 
equitable la formule de choix 
du gagnant). 

- Reportez le nom de ces deux 
programmes sur le bulletin de 
vote. 

- Inscrivez vos nom et adresse 
sur le bulletin de vote. 

A renvoyer avant le 18 Avril 
1985 minuit a Hebdogiciel. 
concours mensuel, 27 rue du 
General Foy 75008 PARIS. 
II est tort probable que ceux 
qui participent au concours fe- 
ront voter leur papa, leur 
maman, leur cousine et la tota- 
hte de leurs amis et relations 
pour leur programme. Normal! 
Mais comme chacun d'eux 
fera la meme chose, cela nest 



BULLETIN DE VOTE 



A renvoyer avant le 18 Avril minuit a Hebdogiciel, 
concours mensuel, 27 rue du General Foy 75008 
PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT: 
NOM DE L'ORDINATEUR: 

NOM DU PROGRAMME: 

JE CLASSE SECOND LE PROGRAMME SUI- 
VANT: 
NOM DE L'ORDINATEUR: 

NOM DU PROGRAMME: 

NOM ET PRENOM: 

ADRESSE: 




NDLMC Eh oui ca y est. j'ai 
enfin change de nom. il etait 
temps. Alors comment vous le 
trouvez mon nouveau nom 5 
Cast joli hein ? ! Merci de 
m'avoir aide a, le trouver vous 
etes super sympa quand vous le 
voulez, et puisque vous avez 
ete gentils. je vous fats tout 
plem de gros bisous. Au fait 
pour ceux qui auraientla compre- 
nette difficile NDLMC ca veut 
dire Note De La Mignonne Cla- 
viste Allez salut et a la semaine 
prochaine mes petits canards fit 

AMSTRAO 

CHERCHE programmes de 
toute sortes pour mon AMS- 
TRAD en particulier : The Hobbit 
et Gems of Slardus. Merci. Le 
Garrec Erwan, 23 rue Friedland. 
56300 Pontivy. 

ECHANGE prgms pour AMS- 
TRAD. Mr Garrel Thierry 757 rte 
de Monimoirac 30380 St Chris- 
tol Les Ales- Tel: 16 ( 66 ) 52 
43 89. 

AMSTRAO CPC 64 CHERCHE 
correspondents pour echange 
de trues, astuces. programmes 
etc. Goudot Rolland 8 allee de 
la Vendurette 54520 Lascon. 

CHERCHE tous programmes 
pour AMSTRAO (jeux, utilitaires, 
languages). SCHULLER Fa- 
brice 5 rue St Bruno 67200 
Stasbourg 



APPLE 

VENDS Apple lie. souris. joys- 
tick. Version Calc. 30 program- 
mes, livres, Fevrier 85 1 1000 F. 
Tel : (6) 944 39 04 ou : 0481 6 
33, 



Proprietaire Apple lie et modem 
Sectrad cherche a entrer en 
communication avec proprielai- 
res du meme materiel, le soir 
apres 20h30, le samedi apres- 
midi ou le dimanche Bernard 
tel:(6|9037831. 

ECHANGE programmes de jeux 
sur Apple H (Stellar 7, Pac Man, 
Flipper) . Thierry David. 1 1 rue 
du 8 Mai 1945, 53200 Chateau 
Gontier, 



ATARI 

VENDS ATARI 800 XL + lec- 
teur de cassettes Atari 1010TM 
+ 3 cassettes initiation a la pro- 
grammation + 2 manettes + 2 
livres de basic + 1 livre de pro- 
grammes de Jeux, Prix 2500 F 
(Garantie 10 mois) Tel : 989 08 
91 poste 268 du mardi au ven- 
dredi de 9h00 a I2h00 el de 
13h30 a 17h00. Didier Couturier. 
95300 Pontoise, 

CHERCHE pour ATARI 800 XL 
toutes sortes de programmes 
(echanges possibles). Arnaud 
Deneuleglise, 9 rue Paul Olry. 
62570 Blendecques Wizermes 

VENDS ATARI VCS 2600 + 2 
joysticks h K7 Defender f K7 
Jungle Hunt + K7 Miss PacMan 
(comme a la tele) : le tout 650 F 
(valeur 2000 F). Tel : (6) 020 66 
94. 

VENDS ATARI 600XL Peritel 
1000 F, lecteur de K7 1010 300 
F. cartouche Moon Patrol 100 F, 
le lout sous 10 mois de garan- 
tie. Urgent. Sisour VISOUD 40 
rue Edouard Vaillant 93170 BA- 
GNOLET Tel 659 69 01. 

VENDS ATARI 800 XL : 1200 F 
+ TV. couleur avec telecom - 
mande : 3000 F. + nombreux 

logiciels a des prix interressants. 
tel : 867 94 76. 

VENDS ATARI 800 XL + lec- 
teur de K7 + 60 K7 a prix bas. 
Tel: (20) 35 71 19. 



CASIO 



VENDS cause double emploi 
CASIO FX 702P + interface K7 
+ 2 livres PSI + 30 program- 
mes sur K7 : le tout 900F. Sl- 
MEONIDIS, 11 bis place du ge- 
neral Amette 75015 PARIS. 



VENDS printer CASIO FP-10 + 
RLX : 400F avec emballage. Se 
branche sur FX-502P-602P- 

702P Philippe. Tel ; 376 47 84. 

VENDS CANON FX 702P + 
Manuel + livre de programmes 
+ piles 900F. Sous-garantie 
Laurent ABRASSAT 24. avenue 
Audra 92700 COLOMBES. Tel : 
784 42 26 

VENDS CASIO PB 700 12/83 
avec manuel + housse : 1000F 
J.P CARRON Tel : 250 96 29 

VENDS CASIO FX-702P 4 In- 
terlace K7 FA-2 + imprimante 
FP-10 + la decouverte du FX- 
702P" + "la conduce du FX- 
702P" + 1 K7 DDI + 7 K7 lo- 
gi'stick + 7 casettes de pro- 
grammes tapes Valeur 2600F 
vendu 2200F Paul JOLIVET. 
Tel 921 84 04 apres 20h. 



COMMODORE 

CHERCHE programmes pour 
COM 64 jeux e! utilitaires en 
langage machine si possible 
cherche egalement correspon- 
dent pour renseignements. Tel : 
(94) 53 98 88 apres 19H 

VENDS COM 64 + lecteur K7 
+ joysticks + nombreux logi- 
ciels + livres + cordon peritel : 
3000 F. 

CHERCHE commodoristes pour 
echanger programmes de jeux. 
Tel : 261 1 1 26 a toute heure. 

VENDS ou ECHANGE utilitaires. 
Jeux. Langages pour C64 avec 
disquettes : Ecrire a Gisele 
PIERREUX. 24 rue des Marcot- 
tes 7000 Mons Belgique. 

CBM 64 recherche console et 
drive 1541 hors d'usage pour 
pieces. Faire offre a Jean 
Claude au (6) 083 05 28. 

VENDS Commodore 64 Peritel 
+ magneto + adaptateur peritel 
+ alim + jeux + livres. Possibi- 
lity tele. Le tout : 2500 F garan- 
tie 9 mois Tel . 969 08 15. 
Thierry. Urgent. 

VENDS ou ECHANGE labo 
photo couleur + noir et blanc 
(valeur 4500 F) contre Vic 1541 
pour C64. Tel : 022 09 56 apres 
19H00. 



CHERCHE CBMistes passion- 
nes par Lode Runner pour 
echange de tableaux (par cas- 
settes) Bagneux D. 33 rue de 
Bas Foux, 41350 Vineuil Tel 
(54) 42 69 40 (NDLMC : Dis- 
donc. tu sais que nos informati- 
ciens en cherchent ? lis ont fait 
les 150 de LR, les 50 de LRC. 
ils en ont cree plus de 200 et ils 
rament parce quits s'ennuient.. 
Alors. un peu de compassion, 
envoie-nous les liens...) 

Club 64 Montelimar ECHANGE 
tous programmes (en possede 
plus de 250 avec notices) avec 
autres clubs Com 64 en France 
ou en Belgique. Tel : 16 (75) 46 
61 76 apres 20 heures 



ORIC ATMOS 

VENDS ORIC ATMOS + peritel 
+ manettes + interface + K7 
jeux + 4 livres + 3 theonc - 
nombreux listing et cassettes : 
2500 F Tel : 23 39 38 37 Apres 
18H 

VENDS ORIC 1 48 K + peritel 
+ alimentation + 10 jeux + 
livres + lecteur de disquettes * 
extension RAM et ROM + ma- 
nuel t dtsquette utilitaire + 3 
disquettes vierges : 4990 F. 
Erick AGUIRRE Route Dous 
Bos 64600 ANGLET. Tel : (59) 
52 40 12 apres 18H. 

VENDS ORIC 48 K peritel + 
manuel + interface joysticks + 
4 K7 de jeux + revues : 1600 F. 
Tel: 16(22)44 11 74 

CHERCHE genereux donateur 
dun ORIC ou dun ATMOS hors 
service, envoi en port du maxi- 
mum 30 F. Fabrice PILON, 17 
rue Langevin 37000 TOURS. 

VENDS ORIC 1 , peritel * IF 
NB integree + IF joystick pro- 
grammable + joystick + ma- 
gneto + 150 logiciels: 3000 F, 
Guillaume ANGELINI. Moulin 
Cevenol 30380 ST CHRISTOL 
Tel : (66) 52 05 98. (NDLMC : 
Merci pour le joli compliment, je 
te fais un gros bisou I). 



VENDS pour SPECTRUM ma- 
nette de jeux : 60 F. + K7 Hob- 
bit. Jet set, Alic atac, Cobalt. Al- 
chemist (originaux avec notice). 
Tel: (91)75 63 96 

VENDS SPECTRUM + interface 
peritel + interface 1 et 2 + mi- 
crodrive + imprimante ALPHA- 
COM + magneto K7 + interface 
joystick - 2 joysticks + 1 car- 
touche rom + 9 microdisques + 
100 programmes sur K7. Tel : 
(35)30 15 08 

VENDS SPECTRUM 48 K + 
adaptateur peritel + magneto 
K7 PHILIPS D 6600 + moniteur 
vert + 8 logiciels + livres 3500 
F. Tel : 901 97 80. Le soir. 

VENDS SPECTRUM + peritel 
+ interlace manettes + lecteur 
K7 + 120 programmes sur K7 
+ livres : 2200 F. Tel : 384 85 
29 apres 18H. 



VENDS ZX SPECTRUM 48 KO 
Peritel NB + Micro drive + in- 
terface ZX 1 + synthetiseur 
vocal + carte 8 entrees, sorties 
+ 2 livres Basic + 3 livres as- 
sembler + 1 livre Pascal i 
nombreux logiciels dont ZX as- 
sembler. Pascal HP4T. Vox, 
3D Mover. Eureka, Compitateur 
+ nombreuses revues inlorma- 
tiques, et en prime un abonne- 
ment a ORDI 5 pour 1 an le 
tout : 5000F. Tel : (42) 26 71 84. 



VENDS SPECTRUM 48 K + 
livres + 12 programmes + K7 
spectrum computing N° 6 : 1800 
F. Tel : 602 38 33 de 1 4 a 20 H 



Achete ou echange (contre 
trashman, xavior). Logiciel de 
jeux d'arcades rapides. L 
COSTE. 2 rue C.NOD1ER 25000 
BESANSON (vend egalement 
prise peritel spectrum). Tel : di- 
manche (84) 40 22 07. 

VENDS SPECTRUM 48 K peri- 
tel + magneto BRANDT M 219 
+ livres + 16 K7 : 2000 F Tel : 
(16 06)402 26 02 

VENDS SPECTRUM + 48 K + 
peritel + interface Manette AGB 
+ joystick (Quick Shot II) + 
livres + Light Pen + 8 K7 de 
jeux : 2800 F. Tel : 906 83 32. 

VENDS pour SPECTRUM 
Dallas : 70 F. port compris. Tel : 
070 13 85. 

VENDS SPECTRUM 48 K peri- 
tel + micro drive + livres + pro- 
grammes : 3400 F Tel : (43) 93 
78 91. 



VENDS SPECTRUM 48 K peri- 
tel - UHF NB. + 2 manettes + 
interface + 6 K7 + progs perso 
+ TV. NB. : 3500 F. + TV. cou- 
leur SECAM pentel : 2200 F. 
possibility de vente groupee ou 
separee Tel : (61; 01 90 14. 

POSSESSEUR SPECTRUM 48 
K RECHERCHE correspondant 
pour echange de programmes. 
Tel : (56) 48 54 33. 

VENDS SPECTRUM PLUS + 

imprimante + adaptateur peritel 
+ 1 5 K7 de jeux + 2 livres : 
3500 F. Stepbane KRAUSZ 
Tel : 588 41 97. 

CHERCHE correspondant pos- 
sedant un SPECTRUM 48 K 
pour echanger programmes et 
trues. M. GERARD 1 rue de la 
Croix 1050 BRUXELLES BELGI- 
QUE. 

VENDS SPECTRUM 48 K + 
peritel + mod. NB + TV. NB. + 
int. centronic + int Kempston et 
AGB + manettes + magneto + 
30 programmes dont inedits + 
50 listings + livres + revues : 
3500 F. Tel : 252 76 26. 

VENDS SPECTRUM 48 K + 
manettes de jeu + peritel + 2 
livres de programmation + 5 lo- 
giciels : 2800 F. ou 3000 F. 
avec magneto. M, CAMBOUR- 
NAC. 59 avenue Beausejour 
77340 PONTAULT COMBAULT. 
Tel : 028 58 74. 

T199 

VENDS Tl 99 + manettes de 
jeu + cable magneto + ma- 
gneto + BE avec manuel en an- 
glais + 5 modules (Pole posi- 
tion. Cars war, Burgertime, 
Invaders. Parsec) + K7 Sun 
Games + 100 jeux sur K7 + 
livre sur le Tl: 3500 F. a debat- 
tre. Gilles LAINE 6 chemin de 
la Montagne 891 13 FLEURY LA 
VALLEE. Tel: 16 (86) 73 77 99. 

RECHERCHE MODULE BE. 
pour Tl 99. Tel: 339 10 87. De- 
mander Herve. 

VENDS mini memoire neuve 
pour Tl 99 + manuel en anglais 
+ K7 demonstration: 300 F. M. 
GERARDOT 2 square Danlon 
94600 CHOISY LE ROI. 

VENDS Tl 99 + BE. + 108 pro- 
grammes sur K7 + magneto + 
2 manettes de jeux + 4 livres: 
2500 F. a d6battre Tel: 88 88 
61. 



GAG?... NON... PUB! 



V1DEOTROC 

VENTE - ECHANGE - DEPOT DE 

TOUT MATERIEL VIDEO ET MICRO- 

INFORMATIQUE - 1000 JEUX 



NOS PRIX NEUFS ! 



MONITEUR COULEC K 2490 r t£t III K DISQUETTES + I jeu : 2SV0 E 
atari mm XL SECAM : 1700 F Voaittur Eann Ambrt 9S01 

IB DISW l I lls\ ISM j 145 f Imprimante RROTHtR , i onton : -"■> i 
A MSTRaD msx ( a VON Via . 1WI0 1 Imprimatur 1990 1 

l monlltureoultm • 44901 okh tTMOS H<w{ 

. momicu. momn-hmmr „'VW// CONSOLE CUt.ECO CBS . W) F 
Jqt ah a Ql K A SHOT ll I30f c BM ftJ fit * / „•„ 2490 l 

SPECim \t ■ 16901 ( BM64f*rttel * IJeu 2890 f 

OUVERT DU MARDI AU SAMEDI DE 10 H A 19 H 00 
$9 bis. rue tie Cheremon 75012 PARIS 
til. :342.I8.54 
metro :gare de Lyon. Ledni Rollin 
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GRAND CONCOURS 

PROGRAMMATION 

TOUS MICROS 

^^Nous consulter 325.51.52 

ET (5%) aux lecteurs d'HEBDOGICIEL 

C 64 Peritel + lecteur cassette 5*9f 2 945 F 

Lecteur de disquettes JJ?KSr 2 650 F 

DES PRIX TOLJOURS FOLS 
CHEZ MICROSTORY 

14, rue de Poissy, 75005 PARIS dS"£ 



BLANC BERNARD 

INFORMATIQUE BUREAUTIQUE LYON 

AMSTRAD - SINCLAIR - ORIC 

SHARP - THOMSON - SANYO 

LEANORD - LOCYSTEM 

Blanc Bernard sera present au 

SALON LNF ORA du 16 au 20 avril 

1985 ] STAND 6634} . 

9, rue Salomon Reinach. 69007 Lyon 
Tel. : (7) 872.25.48 (pres facultes) 

ASSISTANCE TECHNIQUE - LOGICIEL - FORMATION 



DIFFICILE DE TROUVER 

LE BON LOGICDZL ? 

Alors n'hesitez plus el venez les voir en 
demonstration dans la nouvelle 
boutique "LOGICIEL PILOTE". 

Vous y trouverer. des programmes, lien 
que des programmes pour voire : 
MACINTOSH, APPLE 2E ou 2C, IBM PC 
ou compatible. 

Sans aucun engagement de voire part, 
venez decouvrir nos logiciels... 

LOGICIEL PILOTE 

S, rue des COLONNES 75002 PARIS. 

(angle 7, rue de la Bourse) 



VIDEO 107 INFORMATIQUE 

♦ ♦ ♦ ♦ ♦ 

PLACE DES FETES 
75019 PARIS 

SINCLAIR QL 5 490 F 

SPECTRUM + 1 900 F 

CBM64 + Led. K7 2 990 F 
ORIC ATMOS 1 690 F 

AMSTRAD VERT 2 990 F 

Tel. : 201.22.34 - 201.46.09 




Gl 

le temple d AMSTRAD 

Inities d'HEBDOGICIEL, venez, en pelerinage, 
visiter le plus fabuleux monument consacre a 
AMSTRAD en France. 



CADEAU DE BIENVENUE 

a tous les fideles munis de cette annonce 



1 0, boulevard de Strasbourg 
75010 Paris S 206.50.50 



Heures de culte . 9 h 45 a 13 heures - 14 a 19 heures 
tous les jours sauf dimanche 
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TI99 

VENDS Tl 99 + manuel d'utili- 
salion + cordon magneto + ma- 
nettes de jeu + 3 livres de pro- 
grammes + 3 modules + jeux 
+ listing; 1500 F. Tel: (74) 97 
25 66. 

VENDS Tl 99 + SECAM + ma- 
netles + cordon magneto + ext 
32 K + BE + mini memoire + 
assembleur f modules : Foot, 
Tomstone city, Parsec. Othello, 
Gestion de fichiers + 7 N° de 
99 magazine + K7 + 10 K7 de 
jeux + Lunar lander + Hebdo 
N* 4 + 130 listings Hebdo + 
nombreux livres : 2800 F. Tel : 
(88) 60 55 40. 

VENDS pour Tl 99 Tl logo II 
avec documentation : 650 F. S. 
SALMONS- 16 rue Traversiere 
11100 NARBONNE. (NDLMC : 
Dis-donc tot. c'est la deuxieme 
PA que tu passes cette se- 
mainej 



VENDS Tl 99 + BE + PARSEC 
+ Burgertime + moonsweeper 
+ mash + lathom + pole posi- 
tion: 2000 F. Tel: 845 74 43, 

VENDS Tl 99 peritel ou secam: 
995 F.Tel: (51) 93 21 21. 

VENDS livres concernant le Tl 
99 liste et prix contre 1 timbre. 
stephane SALMONS. 16 rue 
Traversiere 11100 NARBONNE. 

VENDS Tl 99 + cordon K7 + 
double joystick + modules + K7 
+ 3 livres: 1800 F, Tel: 16 (68) 
25 49 68. 



CHERCHE personne pour fon- 
der un club sur Tl 99 pour 
echanger trues el utilitaires 
Yann LAVANDIER 59 rue de 
Stalingrad 38100 GRENOBLE 
Tel: (76)47 59 72. 

VENDS Tl 99 + magneto + 
cable + manettes + BE + 4 
modules + plus de 40 program- 
mes + 3 K7 + 3 livres de pro- 
grammes + manuels dutilisa- 
tion 3200 F. Tel: 856 63 19 
Apres 18H, 

VENDS Tl 99 + peritel + ma- 
nuel + manettes de jeux + cor- 
don magneto + nombreux pro- 
grammes + K7 apprentissage 
basic : 1200 F. + BE + ma- 
nuel : 550 F. Tel : SO 07 54. 

RECHERCHE interface SECAM 
pour Tl 99. TbI : (85) 35 70 09 
avant 20 heures. (NDLMC : 
Merci pour le bisou, je ten en- 
voie un gros moi aussi). 

VENDS Tl 99 + BE (francais) + 
joysticks + cordon magneto + 
10 logiciels : 3500 F. + livres: 
50 F. chacun + 8 programmes 
gratuits. Christophe CARLIER. 
18 avenue Ducis 92500 RUEIL 
MALMAISON. Tel : 751 04 21. 

VENDS Tl 99 + peritel + cable 
K7 + alimentation + interface 
NB. + manettes + BE en tran- 
cais + mini memoire + 10 mo- 
dules de jeux + K7 Hebdogiciel 
(N B 1,2,3.4) + 4 K7 Epsilon 
Software + 7 revues et 7 K7 99 
magazine + 6 K7 + 10 manuels 
sur le Tl : 7000 F. Andre SEBI- 
ROU. 6 rue de la Presle 37100 
TOURS. Tel ; (16 47) 51 90 28 

VENDS Tl 99 + BE en francais 
+ module Tl Invaders ; 2200 F. 
Philippe ALEXANDRE. 10 rue 
Alfred Roll 75017 PARIS. Tel : 
380 75 16 apres 20H. 

VENDS Tl 99 + cordon ma- 
gneto + manettes de jeu + BE 
+ parsec + 2 K7 * livres de 
programmes : 3000 F. Michel 
FRITZ. Vieville en haye 54470 
THIAUCOURT. Tel : (8) 381 91 
57. 

VENDS BE. pour Tl 99 UR- 
GENT. Tel : 547 93 83. Deman- 
der Yvan en fin d'apres midi. 



VENOS Tl 99 + peritel ou pal + 
magneto + K7 + joystick * in- 
terface + 3 livres : 1 1 50 F Tel 
411 27 40 apres I6h30. 

VENDS Tl 99 + BE + joysticks 
+ cable double K7 + magneto 
+ interface peritel + une cen- 
taine de programmes + nom- 
breuses bibliotheques de pro- 
grammes + nombreux livres 
3000 F.Tel; (81) 58 87 63. 

VENDS Tl 99 + BE + manettes 
de jeu + cordon K7 + magneto 
K7 + cours basic + modules 
+ K7 + 20 jeux BS et 30 jeux 
BE sur K7 + 100 listing de jeux 
+ manuels + 2 livres : 2700 F. 
JJ. HIRSTEL. Le Repanne 
44117 ST ANDRE DES EAUX. 
Tel: 16 40 01 23 48. 

VENDS Tl 99 + 6 modules de 
jeux + module Aventure + mo- 
dule BE + nombreux listing de 
programmes + K7 de jeux + 
moniteur Zenith Monochrome : 
3000 F. Fabnce CONIEL. Tel : 
(29) 70 91 37. 

VENDS Tl 99 + Peritel + cor- 
dons magneto + joystick + BE 
manuel en francais + nombreux 
modules + 2 K7 + schemas et 
livres techniques + livre La 
Conduite du Tl 99 : 3000 F Tel : 
702 91 48 ou 930 59 27 

ACHETE BE et extension 32 K 
exterieures pour Tl 99. Tel : 823 
05 44 apres 18H. 

VENDS Tl 99 + peritel + ma- 
nettes de jeu + BE + mini me- 
moire + manuel assembleur + 
jeux et programmes N° 3 + K7 
basic par soi meme et BE par 
soi meme + 99 magazine N° 4 
+ nombreux programmes sur 
K7 + cable magneto : 2500 F. 
Tel: (3) 062 31 62 apres 12H. 

VENDS pour Tl 99 3 K7 : 60 F. 
chacune + Hebdogiciel 2 et 
Rubis sacre ; 90 F. chaque + 
Lunar Jumper et Solar system : 
90 F. chaque + La tombe du 
sorcier : 70 F. + Fun pac : 90 F. 
+ aide a la programmation et 
basic par soi meme : 60 F. cha- 
que + module Demolition divi- 
sion : 90 F. Tel : (16) 6 452 56 
06. Demander Patrick. 



VENDS pour Tl 99 BE ; 500 F 
avec manuel. Stephane SAL- 
MONS 16 rue Traversiere 
1 1 100 NARBONNE. (NDLMC : 
merci pour le bison mon pous- 
sin i). 

T07 

VENDS T07 + basic + ext 16 
ko + 2 manettes + ext jeux f- 
lecteur de K7 ( module Pictor 
+ K7 Pulsar II + Yeti + une 
vingtaine de jeu sur K7 + pro- 
grammes + manuel + livre de 
jeux : 4500 F. Franck CHAN- 
LOUP. La Cigaliere Maubec 
38300 Bourjoin Jalliere. 

VENDS extension memoire 16 
ko pour T07. Christopher BAR- 
ROT. 32 34 rue Chanzy 75000 
PARIS. Tel : 371 74 59. 

VENDS TO7 + basic + ma- 
gneto + programmes + K7 jeux 
+ 14 livres + moniteur : 4400 F. 
M. BARQ. 39 avenue des Acca- 
Cias 77400 LAGNY SUR 
MARNE. 

VENDS T07 + enregistreur de 
programmes + cart Basic + 
cart. Pictor + cart Gerez vos fi- 
chiers + ext. memoire + livres : 
1800 F. P. SAUVEGARDE. Rte 
de Druizon Thoury 41220 LA 
FERTE ST CYR, Tel : 16 (54) 
87 54 79, 

VIC 20 

VENDS COMMODORE VIC 20 
+ PAL + cordon peritelevision 
+ livre "La conduite du VIC 20" 
+ 18 logiciels professionnels sur 
K7 + 35 programmes a taper + 
divers documents sur le VIC 20: 
1250 F. a debattre. Tel: (8) 788 
11 03. 

VENDS manette de commande 
pour VIC 20: 90 F. Tel: 16 (70) 
05 18 39. Heures de repas seu- 
lement. 

VENDS VIC 20 + magneto K7 
+ ext. 8 K + manette de jeux 
d+ 40 jeux + nombreux livres 
concernant le VIC 20 + fiches 
de programmes: 2000 F. CHER- 
CHE egalement tout program- 
mes pour VIC 20. Alain COUR- 
RIER. Tel: 035 47 44. 



ZX81 

VENDS ZX 81 + 16 K Memo- 
pak + adaptateur + jeux (King 
Kong. Glunch, Stock, Car. Inva- 
der, Scramble, Mazogs, Hopper. 
Rex, Tyranosaure, Vu File ...) : 
1700 F. Tel: (3) 051 85 25. 

VENDS ZX 81 + 16 K RAM + 5 
K7 + 6 livres et revues sur le 
ZX 81 : 800 F + TV NB a de- 
battre. L. PILLONI. 38 srue 
Thiers 38000 GRENOBLE Tel 
(76) 47 29 96. Heures de repas. 

VENDS ZX 81 + 16 KO + cla- 
vier A8S + nombreuses K7 de 
jeux + HRG + adaptateur de 
joystick + nombreux livres et 
documentations + magneto- 
phone Hermes 5100: 1500 F. 
Serge MERIC. 17 rue Cayran 
31200 TOULOUSE Tel : (61) 48 
46 73. 

VENOS ZX 81 + clavier meca- 
nique + cordons + extension de 
memoire + 4 logiciels + 1 livre 
de 70 programmes et le manuel 
d'utilisation : 1000F. Tel : 797 61 
53. 

CHERCHE correspondent pour 
echanger des programmes pour 
ZX 81 avec 16 K. F. JEZE- 
QUEL. 14 cite Gorrekean 29212 
LE DRENNEC. 

ACHETE ZX 81 meme en tres 
mauvais etat pour une somme 
avoisinant les 150 F. Bernard 
ARROYO. 7 avenue Nicephore 
Niepce 71100 CHALON SUR 
SAONE. 

VENDS ZX 81 + 16 K + clavier 
mecanique + manuel + alimen- 
tation + cables + 10 K7 de 
jeux : 1300 F. Envoi gratuit. Tel : 
(66) 45 91 76 Demander Didier. 

VENDS ZX 81 + 16 K + clavier 
ABS + alimentation + manuel 
+ 2 K7 + nombreux program- 
mes : 700 F, Tel : (4) 440 01 99. 
(NDLMC: Pour la photo dMi- 
cassee, on verra si vous 6tes 
sage !). 

CHERCHE carle graphique 
QUIKSILVA pour ZX 81. Tel: 
206 92 25 le samedi et le di- 
manche. 



VENDS ZX 81 + alimentation + 
cordons + extention memoire : 
800 F. VENDS VIDEOPAC C 52 
PHILIPS + K7 N" 1 (Course de 
voitures) : 700 F. Frederic 
ROCHE. 10 avenue Moisseron 
13009 MARSEILLE. Tel: (91) 
41 85 61. Apres 17H. 

VENDS ZX 81 + 16 KO + cla- 
vier mecanique + interface + 
joystic + manette + 4 livres + 
nombreuses K7 + cordons et 
programmes ; 900 F. Tel : 968 
67 59. 

VENDS ZX 81 + clavier ABS + 
ext 16 ko + une centaine de 
programmes sur listing et 7 sur 
K7: 850 F. Tel; 595 79 44. 
Apres 20H. 



DIVERS 

VENDS VG 5000 + prise peritel 
+ alimentation: 1700 F. a de- 
battre. Tel : (22) 84 02 21. De- 
mander Olivier. 

VENDS configuration complete 
CASIO PB 700 16 K + impri- 
mante + K7 + livres divers + 
programmes : 3500 F. Tel : (56) 
34 45 03 ou (56) 97 13 20 le 
soir apres 20 H. 

ACHETE lecteur de disquettes 
+ jeux + modem compatible 
avec ATARI + imprimante. 
VENDS Vectrex + K7 + video- 
pac + K7 + livres. CHERCHE 
renseignements sur interlace. A. 
COMTE. 9 rue Saint Just 12000 
RODEZ. 

MSX CHERCHE contacts pour 
echanger trues et programmes. 
Charles Henry DE ROMANCE. 
1 rue Paul Demange 78290 
CROISSY/SEINE. Tel : 976 46 
84. 

VENDS BYBLOS : 400 F. Trai- 
tement de texte souris fonction- 
nant sur configuration APPLE II 
E + souris + seikosha GP 
100A. Tel : (54) 78 86 29 

VENDS VIDEO GENIE 16 K + 
lecteur de K7 + 250 logiciels 
avec documentation ; 2500 F. + 
moniteur vert : 800 F, Tel : (74) 
62 85 34 apres 19H. 



Scandale dans la micro- inf or matique! 
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Ci-joint mon reglement par 



2010 

de Peter Hyams 




Avec Roy SCHEIDER, John 
LITHGOW, Helen MIRREN et 
Bob BALABAN. 1H56 USA. 



Alors comme que j'vous I'di- 
sais-je precedemment dans les 
numeros precedents e! que j'ai 
pas fini de vous le dire, les Ri 
cains nous envoient un film de 
SF (faute d'etre un film agri- 
cole, de stars ou de mmorites^ 
J'ai nomme 2010 
Lui aussi est un film qui a ete 
attendu par un certain nombre 
de fans de SF (cf Dune) EW- 
demment apres 2001... 
Justement 2001. parlons-en 
C'etait un bouquin d 'Arthur 
CLARKE . d'aucuns diront que 
c'est le chef-d'oeuvre de la SF 
moderne, bon moi chuis pas 
d'accord, mais la nest pas le 
probleme. toujours est-il que 
c'est un tres bon roman. qui 
depasse sa valeur de SF poui 
devenir un vrai roman de litte- 
rature. au revoir le ghetto 
Done a la base on a un tres 
bon texte (j'vous cause de 
2001. n'oubllez pas), et puis y 
a un realisateur un peu fou qui 
s'y interesse : Stanley KU- 
BRICK. Ce mec c'est pas n'im- 
porte qui, Les Sentiers De La 
Gloire ou Lolita sont des films 
d'anlhologie Ca nous fail alors 
un bon texte + un bon realis- 
teur visionnaire. cetle equation 
du 78eme degre avant JC 
nous donne alors un excellent 
film. COFD. disons meme le 
meilleur film de SF jusqu'a 
Blade Runner, mais ca aussi 
c'est un avis tres personnel 
Bon mais toui ca, ca concerne 
2001. qu'en est-il pour 2010 ? 
Eh bien suivons le meme rai 
sonnement : 

Arthur CLARKE ecrit une suite 
de 2001 parce que plein de 
gens lui demandent des expli 
cations sur le premier book et 
qu'il en a marre de dire 
meme chose a tout le monde 
depuis 17 ans. En plus de ca, 
on peut soupconner que ce 
cher ami avait des problemes 
financiers, ecrire 2010 c'etait 
un coup de trie sur. Maiaiaiais 
tout nest pas si simple et 2010 
est vraiment quelconque au 
niveau du texte, c'est juste 
un petit bouquin de SF tres 
pretentieux, qui pisse pas haut 
et qui s'oublie facilement dans 
la masse. Ca nous fait a la 
base un texte mediocre On 
prend un realisateur pas ge- 
nial. Peter HYAMS qui va tout 
pomper chez KUBRICK et ca 
nous fait un film., .pas mal. pro- 
prement fait mais qui se perd 
dans la masse, lui aussi ! 
Voila. dans la sene "Les De- 
ceptions De L'Annee"... Vous 
avez un film qui a I'odeur de 
Kubrick, les images a la Ku- 
brick, les decors de Kubrick, 
mais ce nest pas Kubnck A 
bon entendeur .... 



EZS 




edito 



Cette semaine il fallait que je 
fasse un choix ; ou j'vous cause 
de pletn de films, done des 
petits papiers tres courts qui ne 
vous apprennent rien. ou bien 
quelques articles longs qui 
etaienl (du verbe etayer, bande 
de schprountz ignares) mon ju- 
gement (Yakh ! Yakh ! Yakh !). 
Et qu est-ce que j'ai choisi, 
hem ? Bon |e sais bien. vous 
I avez deja remarque, y a que 4 
articles cette semaine. done... 
Et Partir Revenir, et Country ? 
Bon ben esscuses les mecs, 
mais j'en pas encore eu le 
temps d alter les voir en salle, 



vu que j'ai pas pu alter aux 
projos. alors ! Et puis comme de 
toutes lacons, la patience est la 
mere de tous les vices Atten- 
dez. la j'crois bien que j'm'ai 
goure C'etait quoi deja? Mer 
de loutes les vis ? Nan, c'est 
pas ca non plus, mer des Sar- 
gassos ? Nan ca y est. j y suis. 
c'est "patience esl mere de sa- 
gesse". chavais bien qu'j'y am- 
verai I 

En tous cas. la s'maine pro- 
chaine j'vous f'rai des tas de 
petits articles tout courts, enfin 
p't'et , enfin vous verrez bien. 
Commencez pas a m'embeter 
non plus ! 
Allez, tchaw ' 

CLOU 



box office 

1) APRES LA REPETITION 
f 2) BRAZIL 

i 3) PERIL EN LA DEMEURE 
< 4) LA VIE DE FAMILLE 
v 5) A LA RECHERCHE DE GARBO 
i 6) BLANCHE ET MARIE 

7) SUBWAY 

8) NUIT PORTE JARRETELLES 

9) PIANOFORTE 

10) ANOTHER COUNTRY 

11) SAC DE NOEUDS 

12) LES SAISONS DU COEUR 

13) LE BAISER DE TOSCA 

14) LA DECHIRURE 

15) LOUISE L'INSOUMISE 

16) LES SPECIALISTES 

17) LE JEU DU FAUCON 

18) FLIC DE BEVERLY HILLS 

19) RAS LES PROFS 

20) JUSQU'A UN CERTAIN POINT 
21) 2010 

' 22) BROTHER 





SUBWAY 

de Luc Besson 

Avec isabelle ADJANI. Christophe LAMBERT, Richard BOH- 
RINGER (encore lui. super!). Michel GALABRU, Jean-hugues 
ANGLADE et Jean-Pierre BACRI. 1H46. FRA. 



Ticket chic ! 

WAAAAAH ! Si a 25 ans | 'ar- 
rive a faire ce qu'il fait lui, j'me 
paie des prunes, ou non, plutdt 
des cacahouetes, et pis non. 
une nouvelle paire de pompes. 
que ca m'ferait pas de mal. 
Bon mais dici-la. j'ai du pain 
sur la planche. ga pour sur. 
Faire un film sur le metro pari- 
sien, c'est dur, parce qu on 
peut s'attendre tenement facile- 
ment a des plans a la Beneix 
dans DIVA. Mais non. c'est 
pas parce que Besson est lui 
aussi un jeune realisateur qu'il 
fait la meme chose que ses 
poles, non mais oh. faul pas 
deconner non plus ! Le p'tit 
Besson. it est capable de faire 
ses films tout seul comme un 
grand, sans besoin de per- 
sonne sur qui copier De 
toute maniere . des films sur 
le metro yen a pas eu des 
masses. Et en plus, je liens a 
signaler a nos amis non pari- 



siens (mais comment tont-il 
pour vivre a la campagne ?) 
que le metro change de gueule 
tous les 6 mois. alors inevita- 
blement y a que son film qui 
ressemble a son film Ca c'est 
une phrase quelle a une puis- 
sance semantique qui decoifte 
au moins ! 

Isabelle ADJANI. |e vous ra- 
conte pas comment quelle 
joue bien et quelle est belle. 
Dans la serie, vous allez voir 
comment que t'vais ameliorer 
le role qu'etait ecrit sur le sce- 
nar, elle se pose la. Bien sur 
tout le monde va dire que c'est 
encore un role de temme-en- 
fant, mais merde, faut pas etre 
begueules les mecs Recon- 
naissez le talent la ou il est 
Elle joue la mome pauvre qui 
s'est maquee avec un mec 
bourre de thune et qui s'em- 
merde a cent sous de I'heure. 
Et elle vous joue ga d'une fi- 
nesse, epatant. 

Christophe LAMBERT a repris 
un r6le a la Greystoke : le mec 
eompletemeni inadapte. qui vil 
tout seul dans son monde. qui 
n'en fait qua sa tete sans es- 
sayer d analyser les situations 
parce que ca lemmerde II est 
clair, franc et fou. La preuve 
c'est qu'il ne supporte pas la 
vue des corfres-forts. et qua 
chaque fois il faut absolument 
qu'il les fasse sauter, camara- 



des Ca c'est une action revo- 
lutionnaire qui prouve que la 
guerilla urbaine nest pas 
mode dans tous les coeurs. 
Nan. la j'deconne. Mais sachez 
que s'il fait sauter les coffres, 
c'est pas (seulement) pour 
chourav c'qu'il y a a I'interieur. 
c'est juste parce qu'il les en- 
caisse pas (c'est leas die 
dire). D'ailleurs c'est a cause 
de lun d'entre eux qu'il s'est 
refugie dans llrome. qu'il se 
fait courser par des mecs qui 
veulent pas vraiment lui confer 
fleurette et qu'il a rencontre 
Adjam. 

Galabru en fait des caisses. et 
moi fadore. Surtout quand 
c'est pas pour des niaisenes 
(penre Le Gendarme et Mach- 
pro, Le Gendarme Blablabla, 
etc). Bohringer aussi assure 
bien. toujours fidele a lui- 
meme. c'est le fleunste pas net 
et qui apparemment est un 
peu trop bien avec les Bour- 
res. Et puis tous les autres, qui 
sont pas la juste pour faire 
coucou a maman. eh ben y 
s'demerdent pour etre a la 
hauteur. 

Voila. J'vous ai toutu 2 photos 
pour que vous voyez bien que 
c'est ce film que je veux que 
vous alliez voir. Ah avant d'me 
tirer. juste un true. Luc BES- 
SON s'est fait un film qui se 
passe dans lendroit le plus pa- 




risien de Pans, a savoir le 
metro, et il s'est demerde pour 
que ca ne paraisse pas un 
pete parigot, eh ben c'est 
super baleze. On a plus ['im- 
pression que ca se passe dans 
une station orbitale que dans 
les locaux de la RATP. on voit 
bien quelques rames qui trai- 
nent par-ci par-la, mais ce sont 
juste les navettes enlre le cen- 
tre et la penphene de la sta- 
tion, alors y a pas de quoi s'in- 
quieter. hein, 

Sinon, y a un true que si avec 
tout ca vous etes pas encore 
decides a le voir que c'est le 
coup de grace, c'est la pour- 
suite entre un mec en roller et 
une armada de queufs : fa-bu- 
leux ! 

Bon, ben la j'crois qu'j'ai rien 
oublie, le gaz est coupe, le dis- 
joncteur est off. ma soeur est 
en vacances, le chat a bouffe 
et les plantes sont arrosees 
Sur ce salut. BRAVO LUC ! 
Ticket choc ! 



ET RATA ! 

Ah. les mecs chuis vraiment 
desole, j'ai fait une boulette la 
s'maine derniere : Le Baiser 
De Tosca nest pas un film al- 
lemand. mais un film suisse 
Autant pour moi les p'tits suis- 
ses ! Pas Pizza, pas schnaps : 
gruyere '! 



MARLENE 

de Maximilian Schell 



Avec... devinez qui ? Vous 
avez vu le titre ? Mar-le-ne ! 
Pas Marlene Garbo. pas Mar- 
lene Signoret, pas Marlene 
Miou-Miou : Marlene DIE- 
TRICH, evidemment, I'Ange 
bleu avec les yeux lourds. lair 
blase et le dos legerement 
voute de cedes qui avaient la 
classe avant que voire moman 
vous feconde. bande de petits 
jeunots ! 



Avant de vous parler de cette 
star du cinema mondial que sa 
carriere elle commence en 
1922, |'allons vous causer un 
chouia du realisateur. mec pas 
commun : Maximilian Schell 
qui s'appelle et que c'est sur- 
tout un acteur. II a rencontre 
Marlene en 1961 sur le Mm 
"Jugement a Nuremberg" (y a 
aussi Spencer Tracy) pour le- 
quel il recut un Oscar, c'est 
pas nimporte qui non plus 
Maintenant. passons a celle 



que vous attendez tous avec 
impatience : Marlene ! 
On voit sur 1'ecran des tas 
d'extraits de ses films, ou elle 
est belle comme le jour, 
comme toujours. Et sur ces ex- 
traits . en voix off, on lentend 
repondre aux questions de 
Schell. 

Ce film est interessant par sa 
forme : Marlene n'a pas voulu 
etre filmee pendant ces inter- 
views, c'etait specifie dans le 
contrat et elle ne se gene pas 
pour le rappeler a tout bout de 
champ pendant cette heure et 
demie de film. D'ailleurs, elle 
n'a pas lair particulierement 
commode au ton que prend a 
certains moments la conversa- 
tion, on sent que ca n'a pas du 
etre une partie de plaisir per- 
manent ! Bonjour la tension ! 
Enfin voila. c'est un film que 
c'est super bien fait, et que ca 
demytifie pas mal cette plus 
grande" star de tous les temps 
Et pourquoi pas ? Eijanaika 7 



JUSQU'A UN CERTAIN POINT de T„ ma * Buti, H zAi«, 




Avec Oscar ALVAREZ. Mirta 
IBARRA et Coralia VELOZ. 
1H08. CUB. 



Mais que c'est les Coubains 
qui nous zont envoye oune yoli 
petit film la ! 

Oh, mais c'est bien ca 
Comme quoi meme dans ces 
pays bizarroides y zont des ci- 
nemas. D'ailleurs a mon avis. 
c'sont des paillotes leurs salles 
de cinema, avec de la foumee 
de cigare en guise d'ecran. bo- 
nyour les yeux au bout fe 10 
minoutes ! 

Bon , ye aneie la mes conne- 
ries. et encore ye vous at 
meme pas fait le coup des 
mauvais yeux de mots avec 
Fidel, mais si vous etes vrai- 
ment sympa, ye en f'rai quand 
meme. 



Couba. pays dou commou 
nisme a la Castro apres la 
choute de Baftista en 59 ou 
58 (verifiez dans vos bou- 
quins. ye peux pas iouI savoir 
a la fin), capitale LA HAVANE, 
c'est ca comme les cigares, 
meme que c'est oune ville que 
c'est oune port. Si ye dis <;a. 
c'est pas youste comme ca 
pour vous endouire d'erreur. 
mais parce que lactionne dou 
film se sitoue precisemenl a La 
Havane, et pious particouliere- 
ment dans le port 
Imaginez qu'oune prodoucleur 
vienne vous voir et vous de- 
mande de pondre oune scena- 
rio d'oune film sour le ma- 
chisme. Vous. vous etes tres 
cons, moins que moi. mais 
vous vous en cognez quand 
meme oune dose certaine. el 
vous vous dites : "Poutain, 



mais quest-ce quy mem- 
merde la vie, la, le mec avec 
son machisme de mes deux, 
que ye etais peinard a m'faire 
couper les orteils par ma gon- 
zesse I" 

A ce moment precis, vous 
vous mertez oune grande cla- 
que sour le front, qui vous 
remet les idees en place, et 
vous vous apercevez que vous 
venez yistmon de faire preuve 
de machisme. Vite vous basez 
votre meuf, vous courez a la 
couisine pour faire la vaisselle. 
et c'est la que vous vous ren- 
dez compte que vous ne savez 
meme pas ou s'trouve le Paic, 
tenement que c'est rare que 
vous foutiez les pieds a la 
couisine. 

L'idee d'oune film sour le ma- 
chisme commence a faire son 
chemin, et vous vous dites que 
si deya, vous. intellectouel au 
service des masses laboneu- 
ses (pour ne pas dire la plebe) 
vous avez ce genre de 
comportemenl. alors quest-ce 
que ca doit etre dans le port 
ou que les mecs, questionne 
niveau coultourel, y aurait vrai- 
ment dou boulot de recyclage 
a faire ! 

Hop, vous sautez dans votre 
caisse et vous foncez sour le 
port. 

Effectivement, a la souite d in- 
terviews en video, il apparait 
clairement. que les dockers 
sont sacrement machos 
(machis ?). La liberie de la 
femme, d'accord mais seule- 
ment "yousqu'a oune certain 
point". En clair. d'accord pour 
que les femmes travaillent. 
mais des queues sont ma- 



BROTHER 

de John Sayles 






- 
i 



Avec Joe MORTON. Tom 
WRIGHT et Ren WOODS. 
1H50. USA. 



Y a meme des extraterrestres 
noirs ! Vous vous rendez 
compte ' Deja, on en a eu des 
verts, des bleus. des bruns. 
des iaunes a pots mauves. des 
lout fripes. des tout tisses. des 
tout singes ou des tout beaux 
mais alors des tout noirs. cost 
vraiment la premiere fois que 
j'en vols. 

C'est I'mec sur la photo que 
c'est I'ET du coin. Y s'est 
sauve d'une plantation quelque 
part dans la gataxie et a atterri 
a Neuve-lorque, et il est tout 
paume. le pauvre. 
Quest-ce qu'un Noir tout seul 
peut faire dans cette ville. 
hem ? Alter a Harlem ? Bravo, 
vous avez gagne. y zone dans 
Harlem El une fois dans Har- 
lem, tu fais quoi ? Tu rentres 
dans un bar. eh qui ! Et le 
voila dans I'bar. Le probleme. 
c'est que si c'etait un mec nor- 
mal, il boirait quelque chose, n 
causerait avec les autres 
consommateurs. Eh ben non. 
Son gros probleme. c'est que 
jistmon. lui. y sait pas causer 
En revanche, il sait reparer les 
jeux videos par I imposition des 
mains, genre Uri Gelter (de 
quoi). la ruine du technicien de 
maintenance normal. Et rien 
qu'avec ca il arnve a se faire 
un peu de thunes. de facon a 
pouvoir payer sa piaule qu'un 
mec au bar lui a degotee. Tout 
ga pendant qu'il se fait active- 
ment rechercher par des chas- 
seurs de primes inter-galacti 
ques. 

C'est gentil comme film, notre 
"frere" qui vient des cieux se 
revolte a la vue de I'OD dun 
gosse et fait tout pour descen- 
dre le dealer. II finit par trouver 
une colonie de mecs qui 
comme lui sont des refugies. 
Comme quoi la Terre. a notre 
grand etonnement est une pla- 
nete tres accueillante pour les 
refugies politiques. 
C'est pas mal. Faut pas Jeter 
la pierre (plouf) au realisateur. 
c'est son premier long-me- 
trage. En tous cas. la musique 
est super I Bon, c'est tout pour 
aujourd'hui. 



riees, au revoir le boulot (et 
done la liberie financiere. he ! 
he I he !). 

Ca c'est I'debout dou film 
Apres le pious drole c'est que 
le mec y tombe amoureux 
d'oune dockeuse. et que son 
comportement est d'oune 
phallo (nan, pas falot, phallo. 
avec crate a la fin pour les 
chercheurs de p'tite bele) que 
ye vous essplique meme pas ! 
Sans dec' c'est bien Au ni- 
veau technique c'est pas by- 
zance. mais comme I'nistoire 
est vraiment hachement bien 
traitee. comme pour La Nouit 
Porte Jarretelles, le film passe 
bien. C'est courieux. mais en 2 
semaines. on a ou 2 films qui 
partem de femmes intelligem- 
ment. sans militantisme casse- 
bonbons, ou de yeremiades 
debilitantes : Blanche et Marie, 
et celoui-ci De pious, comme 
pour Romance dou Front, c'est 
oune film qui nous vient d'oune 
pays commouniste et qui foul 
toute ideologic au rencard Moi 
ye aime ga. mais chouis pas 
dans Loui ! 

Moralite dou film. pour 
concloure cette conclusion 
conclouante en patchwork 
(pisse and love petit frere), 
comme pour Le Cow-Boy : 
PLOUS MACHO QUE MOI 
TOU MEURS ' 



telocke 



EDITO 



Francais. Irancaises \e le 
clame fort et haul, II est temps 
de reagir Oevant le pitoyable 
spectacle de la decheance 
passee (QUARTET) et pre- 
serve (MORTELLE RANDON- 
NEE) de notre nation. )e pro- 
clame : I'heure du rearmement 
moral a sonne (Y A-T-IL UN 
FRANCAIS DANS LA SALLE 7 ) 
Oui. repond Jean-Pierre 
Chevenement. chef de la cho- 
rale metropolitaine qui entend 
nous reapprendre Ihymne na- 
tional. Et si ca ne sutfit pas. on 



vous rappelle le temps de la 
guerre froide {LE TROISIEME 
HOMME) et on vous prepare a 
la prochaine. 

Mobilisation generale tel est le 
dernier mot d'ordre du Genera- 
lissime Montand et de son 
etat-major. Lors de son emis- 
sion speaale (LA GUERRE EN 
FACE) il nous dit tout sur la 
troisieme guerre : comment. 
avec qui. contre qui. Chez qui 
Ce qu'il taut en penser : PAS- 
SEZ MUSCADE 
BOMBYX 



UN COOP DE DfiM^-^J^jP 
y a-t-il un francais dans la salle 71 m 



Film de Jean-pierre Mocky 
(1962) d'apres le roman de 
San-Antonio avec Victor La- 
noux, Jacques Dutronc, An- 
drea Ferreol. Michel Gafabru. 
Dominique Lavanant, Jac- 
queline Maillan et Jacques 
Dufhllo. 

Horace Tumelat (V. Lanoux). 
chef dun puissant parti politi- 
que, est un homme respecte, 
sinon respectable (a repassed 
Un beau matin, Ginette (D. La- 
vanant). sa secretaire, qui par- 
tagerait bien ses nuits, lui an- 
nonce le suicide dun vieil 
oncle (incarne). La vie d'Ho- 
race. un conace. en est boule- 
versee car loncle cachait un 
prisonnier dans sa villa, Mr R 
(J. Dufhilo). Ce dernier, em- 
mure, risque de manquer d'air. 
Horace rencontre une jeune 
fille. Virginie. qui va I aider a 
soccuper du prisonnier. Ce 
dernier, genre pas commode 
en pire. donne du fil a retordre 
(Virginie, elle lui donne du fil 




inutile dmsister, aujourdhui 
j'ai mis une culotte 

(ho !) a coudre). La secretaire. 
jalouse. cherche a penetrer le 
secret R (parce qu'Horace re- 
fuse de penetrer la secretaire). 

Mocky toujours aussi incisif 
'brosse un tableau caustique 
du monde politique d'avant 81 
Le film foisonne de personna- 
ges secondares, delirants a 
souhalt ( la palme a la Mail- 
lan). Une bouffee d'air a ne 
pas manquer. 

Diffusion le 15 a 20h30 sur 
C + 




[r'AMe) ■ L'AMOUR ft MORT K^LoiU^ 
morteUe randonnee 

Film de C. Miller (1981) avec 
Michel Serrault. Isabel le Ad- 
)anl, Guy Marchand, Ste- 
phane Audran et Sami Frey. 

L'Oeil (Michel Serrault), detec- 
tive desabuse et insolent (vous 
avez dit Bogart ?) file un fils de 
famille, lequel se fait occire la 
nuit meme par sa petite amie 
Cathenne. Cette derniere. 
barbe-bleue au feminm. seduit 
des hommes jeunes et riches 
(des femmes aussi d'ailleurs, 
elle est pas raciste) puis tru- 
cide ses conquetes. Catherine 
(sublime Adjani) fascine I'oeil 
(pardon I'Oeil), une a II nance 
paternelle melee dune sen- 
sual itee cachee lentraine a 
proteger cette aventuriere qu'il 
assimile a sa propre fille Marie, 
disparue depuis des annees. 
Les cadavres s'accurnulent, le 
rythme s'accelere, lintrigue 
s'epaissit avec lapparition dun 
couple daffreux ; L'homme 
pale (Guy Marchand) et la 



Et comme ca, j'ai lair dun 
con ? 

dame gnse (Stephane Au- 
dran). maftre-chanteurs nn- 
gards Le tempo sacheve sur 
un final paroxysmique. Isabelle 
n'a jamais autanl merite son 
nom. on se rince loeil avec 
delectation (avec delais et sta- 
tions aussi. y a des ralentis). 
Michel est pathetique et la mu- 
sique symphonique (Schubert 
+ Carta Bley) A rediffuser le 
plus tot possible 
Diffusion le IS a 20h35 sur 
TF1. 



curiosit6s : 



QUASIMODO Q 



TEMPETE DE NEIGE SUR LA 
JUNGLE Q 

Documentaire des fils COUS- 
TEAU 

Non. it ne s'agit pas dun film 
meteo. ni ecolo. encore que 
lecologie bien comprise s'mle- 
resse au systeme de produc- 
tion, aux conditions sociales du 
developpement economique. 
aux mecanismes dechanges 
des biens et services, au cycle 
des investissements ... (pour 
un cours complet par corres- 
pondance sur les rapports de 
production vous ecrivez a 
Bombyx). Ici la neige. cest la 
blanche, la poudre, la dope, la 
drogue quoi et ses mefaits 
dans les pays pauvres. Cest 
un excellent reportage. 

Diffusion le 16 a 21h35 sur 



Film de William Dieterle 
(1939) avec Charles Laugh- 
ton et Maureen O'Hara 

Adapte de NOTRE-DAME DE 
PARIS de Victor Hugo dont on 
fete le centenaire de la mort 
(bien vu I'hommage) Cest la 
meilleure version parlante a ce 
jour, bien supeneure a celle de 
Delannoy avec Anthony Quinn 
Je vous ferais pas 1'mjure de 
raconter I'hisloire, c'esl du D 4 
D avant la lettre. Reste (inter- 
pretation Esmeralda, cest 
Maureen O'Hara, 19 ans. 
toutes ses dents, meme les 
aveugles son! amoureux. Qua- 
simodo, cest Charles Laugh- 
ton avec une gueule a faire 
avorter une portee de bouledo- 
gues. Deja au nature!. Laugh- 
ton comparail son visage a 
laniere-Irain dun elephant. 
mais la il est tout heureux de 
devoir en rajouter. 

Diffusion le 18 a 23h05 en 
V.O. surTFI. 




Lundi IS Avril 


20h30 C + ; 


Y A-T-IL UN FRANCAIS DANS LA 




SALLE (voir anicle) •& 


20h35 FR 3 ; 


LES BRONZES (1978), film de P Le- 




conte avec 1 equipe du Splendid 


20h35 TF 1 . 


MORTELLE RANDONNEE (voir adiclelM 


20h35 A2 


GRAND ECHIOUIER : Michel Jonasz 


22H35 TF 1 . 


ETOILES ET TOILES (magazine du 




cine tranche) 


23h00 FR 3 . 


THALASSA. Le rythme de la croisiere 


Mardi 16 Avril 


20h00 C + 


FOOTBALL. Sl-Elienne-Lens 


20h35 FR 3 


LA BANQUIERE (1981), film de F. 




Girod avec Romy Schneider. J-L. Trinti- 




gnant, J-C Bhaly el Daniel Mesgwch 


20h35 TF1 


ENIOUES DU BOUT DU MONDE 


20H35 A2 


LES 4 CHARLOTS MOUSOUETAIRES 




(Hunebelte se Dastichel 


21h35 TF 1 


TEMPETE DE NEIGE SUR LA JUN- 




GLE (voir CURIOSITES) O 


22h30 A2 


LIRE CEST VIVRE. La vie de Jesus 




(Renan) 


22h30 TF 1 


TtNTAM T ARTS (vartetes) 


Mercredi 17 Avril 


20h30 TF 1 


DALLAS 


20h35 FR 3 


CADENCE 3 


20h35 A2 


MAIGRET. LE REVOLVER 


21h00 C + 


STRYKER (violence luturiste) 


2lh25 TF1 


QUE LA FETE CONTINUE (Panorama 




des heures gloneuses de la chanson) 


22hl0 A2 


LES JOURS DE NOTRE VIE. Les dan- 




gers domesliques 


22h25 C + 


HANNA K. film de C. Gavras avec J. 




Clayburgh et J. Yanne 


22h25 FR3 


QUARTET (voir CURIOSITESlV 


22h25 TF 1 


COTE D'AMOUR (La bourse qui rockei 


Jeudi 18 Avril 


20h30 C + 


DOUX MOMENTS DU PASSE (19811. 




film nostalgique de C. Saura 


20h35 FR 3 


LA GUERRE EN FACE. Special Mon- 
tand 
LE CANON PAISIBLE rf 3 


20H35 TF1 


20h35 A2 


PRINCESSE DAISY rt 2 el lid 


21(130 TF1 


INFOVISION 


22M0 A2 


DECAUX raconle la Fin du llleme 




REICH 


22h15 C + 


GHOSTKEEPER (1981). film (lantasti- 




que US) embrume 


23h05 TF 1 


QUASIMODO (voir CURIOSITESlO 


Vendredi 19 Avril 


20h35 A2 


CHATEAUVALLON 


20h35 FR 3 


AGATHA CHRISTIE. Impasse au roi 


20h35 TF 1 


VARIETES. Jacqueline MAILLAN 
APOSTROPHES : Du cdte du polar 


211135 A2 




francais 


21h35 FR3 


VENDREDI 


21h45 TF 1 


MULTIFOOT 


22h20 C 4 


LE TROISIEME HOMME (voir adiclem 


23H00 A2 


PASSEZ MUSCADE (voir adicle)r\ 


23h05 FR 3 


DECIBELS DE NUIT 


00h05 C t 


NOCES DE SANG (voir article 77) 


Samedi 20 Avril 


20h35 TF 1 


13 a TABLE (vers la 13eme redil) 


20h35 A2 


CHAMPS ELYSEES 


20h35 FR3 


DISNEY CHANNEL 


22h15 A 2 


LES ENFANTS DU ROCK : Mick Jag- 


22h15 FR3 


DYNASTIE 


221145 TF1 


DROIT DE REPONSE 


22h50 C + 


CALIGULA (merde en cinemascope) 


Dimanc 


20h35 A 2 


LE GRAND RAID 


20h35 TF 1 


TRAOUENARDS (voir adiclelA 


20h3E FR 3 . 


LA GOUTTE D'OR (docu iolre) 


21h00 C + 


MORT DUN POURRI (1977). de G. 




Lautner avec Alain Delon el Ornella 




Multi 


21h3S A2 . 


SORTIES DE SECOURS : Les drogues 




suedois 


22h30 FR 3 . 


LE TIGRE DU BENGALE (voir CURIO- 




SITES) jr 



LE TIGRE DU BENGALE Jf 

Film de Fritz Lang (1958) 
avec Debra Paget 

Un architecte francais. Berger. 
vienl construire un hopital a la 
demande du puissant maha- 
radjah Chandra. Au cours du 
voyage vers le palais le bon 
Berger sauve Sheeta. une 
danseuse sacree. des griffes 
dun ligre. 

Le suiet du film encore une 
fois chez Lang, cest la fuite 
dun homme traque (ici le Ber- 



teloctic. 



VTENNE, VTDI, VTCI ' 
le troisieme homme)* 



Film de Carol Reed (1949) 
avec Orson Welles, Joseph 
Gotten, Alida Vati et Trevor 
Howard. Grand prix du Festi- 
val de Cannes 1949. 

Une ville divisee en quatre 
secteurs ou tout est a vendre. 
CHICAGO ? Non. cest la 
VIENNE d'apres-guerre, celle 
du Danube bleu. Fini le temps 
des valses, cest lepoque du 
Blues, du bleu a lame el au 
corps et du manque de mercu- 
rochrome pour les soigner 

Holly Marlins, auteur de 
romans policier sans talent, 
debarque a VIENNE totale- 
menl desargente (sans talents 
bis) pour y retrouver son ami 
Harry Lime (Orson Welles) qui 
dirige un hopital. On le conduit 
au cimetiere ou on I'enterre 
(Harry pas Holly), ou on lui ap- 
prend que Lime etait un crimi- 
nal en fuite qui irafiquait de la 
Penjpilline. La mort de Lime 
demeure mysteneuse. I'un des 




temoins (Jehovah ?) de lacci- 
dent fatal a disparu, le major 
Calloway de la police mililaire 
britannique le recherche. An- 
glophile, Holly (J. Cotten hy- 
drophile) mene la traque dans 
les canalisations d'eau. 

Chef d'oeuvre complet. Mise 
en scene, acteurs, decors, 
photographies, et musique 
(Anton Karas a la cithare) sont 
a lunisson Un Classique 
Diffusion le 19 a 22h20 sur 
C + 





^PEANUTS KETCHUP 

D passez muscade 

Film de Edward Cline (1941) 
d'apres une histoire de Otis 
Criblrcoblis (pseudonyme de 
W. C. Fields) avec W. C. 
Fields et Margaret Dumont. 



W. C. Fields, acteur associe 
au whisky (Ne buvez jamais 
deau. les poissons y forni- 
quenf dixit eel hydrophobe), 
se dirige vers les studios 
d'Esoteric films (pour ceux qui 
connaissent pas Hollywood, ca 
se situe entre ceux des Artis- 
tes A' ocies et les studios 
Gogues et Chiottes) pour pre- 
senter a un producteur le sce- 
nario qu'il vient d'eternuer sur 
du papier cul (marque trefle) 
En chemin il a maille a partir 
(zut, j'ai lile mes bas) avec 

divers individus W G tile un 

mauvais colon puis rencontre 
sa niece Gloria Battle Fields 
qu'il emmene au Mexique pour 
y vendre des noix de muscade 
aux membres de la colonie 
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russe. Dans I avion, ses "baga- 
ges" passent par dessus bord. 
N'ecoutant que sa couperose. 
il saute en pardessus pour re- 
cuperer ses bouteilles. II se re- 
trouve dans les bras de Mme 
HEMOGLOBINE et de sa ra- 
vissanle fille Ouliotta qu'il initie 
a I'art du Baiser.. 

Ca dure 67 mn. ga ressemble 

a rien de connu. cest du non 

sens a letat pur. 

Diffusion le 19 a 23h00 sur 

A2 



Film de Nicholas Ray (1958) 
avec Robert Taylor, Cyd 
Charisse, Lee J. Cobb et 
John Ireland. 

CHICAGO dans les annees 
30, cest la Belle Epoque. celle 
ou chaque gang se paie ses 
politiciens, ses avocats. ses 
flics, ses mitrailleuses; celle ou 
le jazz et le champagne cou- 
lent a flots dans leurs repaires. 
celle du "moins mechant que 
moi tu meurs". 

Thomas Farrell (R. Taylor), 
reste boiteux a la suite dun 
accident, est devenu lavocat 
dun gangster Rico Angelo Au 
cours dune party, Thomas 
rencontre une danseuse, Vicky 
(Cyd Charisse). Elle vend sa 
beaute. lui son talent, ils se 
meprisent mais leur decheance 
mutuelle les rapproCne 
(I'echeance de ma mutuelle se 
rapproche aussi mais cest pas 
le moment d'en parler) Dans 
un univers de violence et 
derotisme. leur amour equi- 
vaut a une renaissance mo- 




Moms tort. i at une mise en 
plis 

rale. Soudes I'un a I'autre. ils 
font face au monde du vice et 
du luxe. 

Cest beau, lyrique. swing u ant 
et en prime deux sequences 
de danse solo avec Cyd Cha- 
rysse. Ca decoirfe sec 
Diffusion sur TF 1 le 21 a 
20H35 



QUARTET V 



poursuivi par une 
brebis galeuse, le maharad- 
jah) Pour ceux qui aiment 
llnde (cochon qui sen dedit) 
et qui en redemandent. 
Diffusion le 21 a 22H30 sur 
FR3. 



Film de James Ivory avec 
Alan Bates, Isabelle Adjani 
et Pierre Clementi. 

Marya (Adjani) se irouve seule 
et sans ressources a Paris 
dans les annees 20 Un couple 
de riches anglais la recueuille. 
le mari enlreprend de seduire 
Marya avec la complicite de sa 
femme. Notre poupee va suc- 
comber. prise au piege du cou- 
ple diabolique. Petite musique 




Diffusion le 17 a 22h2t> sur 
FR3. 



Suite de la page r 
existants dans cette corbeille. Vous 
voulez des renseignements sur un 
des iichiers ? Vous clique? sur 
"Info", el vous obtenez la taille me- 
moire du lichier en question, son 
type, ('application pour laquelle il 
est congu Vous voulez travailler sur 
un des fichiers ' Vous cliquez deux 
fois sur licone le represenlant, il se 
charge et son execution est automa- 
tique. Vous voulez I'heure ? Cliquez 
sur 'Clock', une petite montre ap- 
parait. Vous voulez classer vos dos- 
siers par or are chronologique, al- 
phabetique analphabetique. 

idiosyncfirasique. n'importequoiti- 
que ? Pas de probleme. tout est 
prevu. il suffit de cliquer. Vous vou- 
lez jeter un dossier ?ll suffit de le 
mettre a la poubeile Vous vous etes 
trompe. fallait pas I'effacer ? La 
poubeile est toujours la. suffit d'al- 
ler I'y chercher: 

J'AI DEJA VU CA QUELQUE 
PART. 

Ca te rappelle quelque chose. Ma- 
deleine ? Le Macintosh ? Ah ben 
oui, maintenant que tu me le dis. je 
n'y avais pas pense mais c'est 
vrai. Tu as raison. C'est en quelque 
sorte. euh. pompe sur le systeme 
d'exploitation du Mac. 
Et alors ? La mode arrive aux 
icones el aux souns pourquoi ne 
pas en profiler ? Surtout que le 
systeme d'exploitation du Mac ne 
tourne que sur le, d'ou le nom. 
Mac Avantage du Gem : il tourne 
partout 

Enlin, presque Pour r instant. IBM. 
Atari. Commodore, Tandy, Texas. 
Northern Telecoms. Epson. Apricot. 
Id et Acorn ont signe avec Digital 
Research pour impianter ce logiciel 
sur leurs machines. Bull. Olivetti et 
d a i' 'res sont en pourparlers, il 
sembie meme que les demarches 
soient en bonne voie. 
C'etait dans lair : regarde; en 
pages interieures. vous verrez un 
article annoncant une extension per- 
mettani de faire tourner des pro- 
grammes prevus pour IBM sur le 
Mac. 

Alors. le plus simple est de compa- 
rer les deux. Ailons-y. 

MATCH SANGLANT 

Premier reproche au Mac : le noir 
et blanc Un vrai ordinateur n'est 
pas en noir et blanc, nous I'avons 
assez dit Malheureusement, I'IBM 



PC sur lequel nous avons teste ce 
fameux GEM n est pas non plus un 
ordinateur sa resolution n'est oas 



terrupteurs ou des petites lampes 
let. un choix restreint est propose 
sous forme de wires a cliquer. 




assez baieze pour supporter la cou- 
leur Heureusement. sur les autres 
machines et notamment t Atari . ces 
problemes disparaitront Ceci dit . il 
y aura bienfol une carte couleur sur 
IBM qui permettra enfin de jouir des 
pieines capacites du logiciel Pas 
sur le Mac ! Regardez la photo re- 
presentant un voilier sur fond de 
ciel couchant c est tait sur un IBM 
sans le GEM. avec un logiciel res- 
sembiant etrangemenl a Mac Paint 
Et la souns. bien sur 
Mais le Mac est plus joli. du moms 
que le Gem sur IBM PC. Alors que 
les lenetres sur ce dernier sont tra- 
cers au cordeau, elles sont sur le 
Mac arrondies aux angles, ce qui 
fait "classeV T'es contente, Made- 
leine. ie I'ai dit ? 

Deuxieme inconvenient : une fois 
encore, ce n'est pas le Gem qui est 
en cause, mais I'IBM. Le systeme 
qui gere la souris est tenement mai 
fait que ceile-ci se deplace de lacon 
grossiere. sans beneficier de la 
douceur des mouvements de la 
souris du Mac. 

Troisieme inconvenient, pour le 
coup je ne sais pas si ca vient du 
soft ou de la becane car je n'ai pas 
vu d autres versions, le 'tableau de 
bord' nest pas aussi bien fait que 
sur le Mac Sur ce dernier, tous les 
reglages se font en deplagant des 
curseurs a I aide de la souris. en al- 
lumant ou en eteignant de petits in- 



▲ fiien a voir avec to Gen : c'est 
PC Pain un logiciet graphtque 
poor IBM PC. 

pour le moms inesthetiques 

LES PETITS MIQUETS 

Passons a autre chose Digital Re- 
search propose aussi un ubfitaire de 
dessin appele le Gem Draw. Sur 
IBM. peu dinteret. puisque il n'y a 
toujours pas plus de couleurs qu'il 
n'y en avail trois paragraphes plus 
haut. Le logiciel olfre un grand 
nombre de fonctions, j'irais meme 
jusqu a dire toutes les fonctions de 
Mac Paint sauf une : on ne peut 
pas retielmir la forme du pinceau 




jeux Bien entendu. tor's de lutilisa- 
tion de Gem Draw, il est possible 
de consulter I'horioge et la calcula- 
trice 

Toutes les impnmantes possibles et 
imagmables sont prevues. on peut 
meme brancher nimporte quelle ca- 
mera video pour synthetiser une 
image 

Comme sur le Gem. if est possible 
de superposer plusieurs images a la 
fois. mais contrairement au Mac. 
on ne peut pas en mettre plus de 
quatre Si vous lentez den ouvrir 
une autre, un panneau vient vous 
prevenir 'Stop ' II faut fermer une 
fenetre avant (ten ouvrir une autre" 
La taille des fenetres est redefmis- 
sable, on peut les depiacer, depla- 
cer les motifs a I'inteneur bref. 
tout ce qu'on peut faire avec un 
Mac, je vais pas metendre la- 
dessus toute la nuit, 

LES GROS SOUS 

Passons au concret qui tache et qui 
fait mal les prix. Eh bien pour une 
fois, ca ne fail pas mal Prix du 
Gem Desktop version IBM . 1000 
balles hors taxes, ce qui fait environ 
1186 francs TTC. si mes calculs 
sont bons C'est foutrement pas 
cher et meme tres bon marche, vu 
la quaiile du produit. Prix du Gem 
Draw 2500 balles hors taxes, ie 
vous laisse calculer le prix TTC. La. 
c'est plus cher : il faut bien quits 
gagnent sur quelque chose 



Vous voulez franchement mon 
avis ? En principe, il sera resident 
sur le prochain Atari Attendez un 
peu. pa vaut mieux. En fait, tout 
vaut mieux quacheter un IBM 



Chaque dessin est conshtue dune 
multitude de formes simples, adres- 
sables independamment les unes 
des autres. ce qui autorise toutes 
les modifications desirees Les ca- 
racteres ne peuvent etre redefinis a 
partir du programme, mais il est 
possible de charqer de nouveaux 



au secours 

m perdu Jack Tramiel en m*t» 



signe: I'HHHHebdo 



: : i 

Meme si il y a un Gem dessus Et 
si vous avez deja un IBM. achetez 
le Gem c'est joli. ca ne mange pas 
de pain et ca donnera un peu de vi- 
gueur a voire becane m 



Suite de la page i 
JACKINTOSH 

Et il y a la becane Attention 
les yeux : outre la couleur (slo- 
gan d'Atari : c'est mieux en 
couleur", c'est dinge contre 
qui. a voire avis?), elle aura 
128 Ko de Ram pour la ver- 
sion 130 ST el 512 Ko pour la 
520 ST. On le savait ? Ben 
oui, mais la je parle de Ram 
utilisaieur. Ah. alors... Le Ma- 
cintosh n'en comporte que 32 
dans la version nommee "128" 
lorsquil est sous basic. 
Et ou sont le Dos. le TOS. le 
GEM, le basic, les machins. 
les trues et les bidules ? Dans 
la Rom. pardi. 192 Ko qui ne 
touchent pas a la memoire al- 
louee a lutilisateur. A propos, 
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deux versions seront propo- 
sees : lune avec le basic. I au- 
tre avec le Dr Logo de Digital 
Research, contrat-bizness-gros 
sous obligent. 

Autre avantage : le GEM (le 
systeme d'exploitation) a ete 
livre a de nombreuses compa- 
gnies de softs en Novembre 
dernier. Les logicieis seront 
done nombreux des la sortie 
de la machine. C'est lun des 
plus gros defauts du Mac et du 
QL. 

El pourquoi tait-il tout ca. ce 
brave homme ? Pour gagner 
plein de fric et etre le numero 
1 dans un an. II est franc, au 
moms. ■ 



Suite de la page 28 

Du coup , ie me retrouve affubie 

des valises de Jobard et Tra- 

molo. et seul responsable de 

leurs super-micro-ordinateurs- 

ultra-secrets-mon-Dieu-pourvu- 

que-le-KG8-ne-les-decouvre- 

pas !!! 

J'ai fair un peu con avec mes 

deux valoches el ma canne. 

- Vaudrait peut-elre mieux faire 

comme si on ne se connaissait 

pas... 




Tramolo et Jobard acquiescent 
et s'eclipsent discretement, cna- 
cun a un bout de la salle. Les 
haut - parteurs dambiance diftu- 
sent de la Salsa, ce qui me 
donne envie de remuer. Mais j'ai 
la langue tenement seche que 
tout enort me parait strictement 
interdit. Je m'asseois done sur 
un banc de bois vachement in- 
confortable el ires totalitaire. Je 
m'affaisse doucement sur le 
pommeau de ma canne pour 
mediter et attendre que ca 
passe, vu que ie n'ai nen d'autre 
a faire. Mais mon calme est de 
courte duree. Deux flics cubains 
jaillissenl dans la salle et ils hur- 
lent un true en espagnolo-cubain 
qui doit a peu pres vouloir dire : 
-Embarquez-moi ces Irois la Iff 
El les trois en question, c'est Jo- 
bard, Tramolo et Pepe Louis ! 
J'ai vraiment lart de m'embar- 
quer dans des combines foireu- 
ses. Et je nous vols deja dans 
les geoles de Fidel Monastorio. 
Madre de dios, quand reverrai-je 
Paris ? Que vont devenir les 
otages de I'Ombre Verte ? 
Comment nous sortir de ce gue- 
pier ? Caramba, je crois avoir 
trouve la meilleure solution et je 
vous jure que ca va vous epa- 




AMIS DES SORCIERS, BON JOUR ! 



Les Sept Sorciers composent 

la toile de fond et le scenario 
dun jeu d'aventure sur T07. 
Marc W. (donl nous tairons 
I'identite pour des raisons evi- 
dentes) nous propose une pe- 
tite exploration de ce logiciel 
par le biais de quelques mani- 
pulations non prevues au pro- 
gramme 

Tout d'abord il lient a souligner 
la structure du programme, de- 
compose en trois fichiers : 

1. routine de presentation (Ian- 
cement automatique de la 
suite). 

2. routine de protection (basee 
sur le nom de lauteur). 

3. programme principal du jeu. 



Pour obtenir la liste du 3, il 
suffit de suivre la sequence 
suivante : 
- CNT / C 
- EXEC 1218 
- CNT / C 
LIST (pas de PP error) 




La "deproteclion" se passe 
sans probleme, mais la ou 
noire lecteur souffre, c'est a la 
lecture de lignes de plus de 
255 caracteres . Regardez la 
routine 1 aux lignes 60. 99, 
119. 131 et le programme aux 
lignes 3. 9. 22 et 23. Pour ten- 
ter de (aire tourner le pro- 
gramme, passez la ligne 3 en 
REM (elle serf a controler le 
fonctionnement de la routine 
1)- 

Alors que toutes les grenouil- 
les bidouilleuses thomsoneu- 
ses se decident et trouvent 
comment gonfler le basic a 
plus de 255 caracteres par 
ligne ! 
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Debut Avril, vous pourrez [ouer 
a "Gremlins" sur Spectrum. 
CBM 64, C16, BBC et Elec- 
tron. Ne layani pas vu. je ne 
vous dirais pas ce que ca vaut 
Mais je suis inquiet : c'est la 
maison d'edition de Scott 
Adams qui sod ca... 




BYE BYE JI JI , SALUT 
TOUBIB ! 



C'est vachement vexant de se 
casser la tele et de se faire pi- 
quer ses idees par les autres. 
Jean-Jacques Servan Schrei- 
ber a cree le Centre Mondial 
Informatique en 1981, sous la 
forme dune association loi de 
1901 a but non lucratif. Bravo. 
Depuis. JJSS s'esi pas mal 
remue et entre autres projets. 
il a propose de mettre des 
micros dans les ecoles. Au de- 
part, c'etait une bonne idee. 
JJSS qui nest pas sectaire 
pour deux ronds. pensait qu'on 
pourrait aussi bien utiliser du 
materiel Irancais ou etranger. II 
n a d'ailleurs jamais dissimule 
son petit faible pour Apple 
Manque de pot on lui pique 
son idee, et c'est Gilbert Tn- 
gano qui est charge de la met- 
tre en application. Depuis. on 
sail que le materiel francais a 
ete favonse et qu'aucun ac- 
cord n'a ete signe avec Apple 
Funbard,(on le serail a moins) 
JJSS a demissionne du Centre 
Mondial. Dans le meme temps. 
celui-ci est transforms en eta- 



blissement public, et c'est le 
docteur Jean-Louis Funck- 
Brentano qui en a ete nomme 
president, Quest-ce qu'il vient 
faire la celui-la ? Il est specia- 
liste dinformatique ? 
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'la page pedagogique 



la page pedago~ 

Les images et symboles historiques se retiennent plus facilement que les dates. 
Therese EVEILLEAU vous propose ici de le verifier. ~, 



Mode d'emploi : 

L'execution du sous-programme 22000 (definition des caracieres 

graphiques en ASSEMBLEUR) est assez long. Vous aurez interet 

apres un premier lancement, a generer un tichier binaire de la facon 

suivante : 

Lancez le programme. Apres quelques instants, une petite musique 

vous signale la fin d'execution du sous-programme machine. Sau- 

vez en binaire. a la suite du programme principal, les caracieres 

graphiques par : 

SAVEM "ROI". &HD02F + 79 + 32 ■ 29. & HD00O remplacez la 

ligne 222 par LOADM "ROI" : EXEC & HD000. 

Les possesseurs de T07 + 16K devront changer & HD0O0 par & 

HAFCSet &HD02par & HAFF7 

Si vous desirez ettectuer cette operation en priorite. pensez 

avant de faire tourner le sous -programme 22000. a definir le type de 

variables par : DEFINT I, K. M : DEFSTR R : MC = 30 el le faire 

execuler par EXEC & HD000 (ou & HAFC8 pour T07 + 16 K). 

Ce programme utilise le stylo optique et son but est simple ; 
Les noms de 5 personnages celebres apparaissent en face de sym- 
boles. II suffit de pointer le nom des 2 personnages que Ion veut 
echanger. Lorsqu'on estime avoir bien place les personnages. poin- 
ter la case JEU. Les fenetres du village en haut a gauche s'allume- 
ront en fonction du nombre de points. Chaque joueur devra replacer 
2 series de 5 personnages 

A chaque tour, le record est affiche et les lumieres du village s'etei- 
gnent. En fin de partie. tous les scores sont affiches et une nouvelle 
partie est proposee 
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SUITE DUN' 77 



ROIS ET SYMBOLES sur TO 7, TO 7 70 



leiee data267.£69. 119 

4.119.299,382,119.267 
8,291.294,126,299.302 
18196 DATA 267,269.12 
94, 121,299,362, 121,267 
22.296,294, 122,299.382 
74,278, 123,269,293, 123 
69, 124,276,278, 124.289 
£4 

18266 DATA €67,269,123 
93, 125,297.360, 125.267 
26,296.299, 126,267,269 
95,298, 127,267,269. 128 
69, 129,268,297, 128 
16218 DATA 267,269, 129 
76.136,287,295,138,267 
31,26*9,278, 132,286,291 
36,291,134,286,291. 13S : 
92,137 
18226 RETURN 
19999 ',,,,,,,, 
28888 'VILLAGE' 
28001 '"""" 
20020 PT-6 

20060 TAITI=GFfi 1-,P« 
20890 FEN*»GP«<3)+CHRt 



277,288. 119,291.29 

269,128.276,279.12 

128 

,274,279,121-291,2 
269,122,274,278,1 
122,267,269,123,2 
298,361.123,267,2 

,293. 124,297,301,1 

277,278, 125,289,2 
269,126,289,293, 1 
127.289,293. 127,2 
289,297,129,267,2 

288,296,129,267,2 

276.131.287.293. 1 

132.286.291. 133.2 
287,292.136,291,2 



<16>*CHR*<8-»GR« 



10130 LUNE*«GR*<5>*CRf <:6>*CHRJ<10>*CHR«c 

8>+GR*<7> 

20158 ET0ILE»-GR»t6> 

28166 COLOR 3, 8s L0CATE2, 6: PRINTET0ILE* 

28178 LOCATES, BiPRINTLUNE* 

28188 L0CATE4,2:PRINTET0IL4T» 

26198 LOCATES, liPRINTETOILE* 

26195 LOCATE 36. 3, 0:PR]NTETOILE« 

20268 COLOR 5 

28218 LOCATE8,2,0:PRINTGR*i.l>*CHR«- 127.. 

GR*<2> 

20270 BOXFC0,39J-i 15,55J,4 

20288 COLOR 4,8 

28298 LOCATE 1 , 5: PRINTGRf (2> 

28386 LOCATE 2, &:PRINTGRt<2> 

20366 COLOR 1,8=L0CATE 3, 4JPRINTTAIT* 

20376 LOCATE 5,4:PRINTTAITt 

20436 COLOR 1, 8: L0CATE3, 7:PRINTGRS -1 )*CH 

R»C127)+CHR*(127)+GR«<,2> 

28446 B0XF<24,64)-<54,7t>,6 

28458 COLOR 8,6:L0CATE 3, 8> PRINT'TTTT'' 

28466 COLOR 1.8 

20470 ' FENETRES. 

28566 FOP I»l TO 3 

28510 LOCATEI-1,3,0 

20528 COLOR 4, -3HPT> = 1 ) 

26538 PRINTFEN* 

26540 NEXT I 

20558 FOR 1-1 TO 3 

26555 LOCATEl-1,7,8 

28557 COLOR 4, -3*iPT-> = I+3 ' 

26568 PRINTFENt 

2O570 NEXT I 

20580 FOR 1=1 TO 4 



20590 LOCATEI+2,5,0 

20688 COLOR 4, -3*i.PT>«I.+6> 

26618 PRINTFENS 

26628 NEXT I 

20636 RETURN 

28998 ' 

26999 ' 

21666 'SCHU8ERT. 

21601 """>"> 

21683 RESTORE 21848 

21885 FOR I»l TO 31 

21818 READ A* 

21826 PLAY A* 

21836 NEXT I 

21848 DATA 04L24DO,FA. FA.LA,LA. L48FA. DO, 

L12S0.FA, P1I,RE,L48D0 

21856 DATAL12S0, FA,HI,RE,L48DQL24.D0..F*, 

FH,LA,Lfl,L48TAL24,D0 

21668 DATA FA, HI, L12RE,HIL24,FA, 03SI04,D 



21688 RETURN 

21999 ',,,,,,,,,,...,,,,,,.,, 

22888 'CARACTERES GRAPHIQUES. 

22881 •"""•'""""""" 

22885 RESTORE 22856 

22816 FOR 1-8 TO 46 

22626 READ R 

22625 KK»VAL<"IH"+R> 

22630 POKE tHD060+l, KK. 

22646 NEXT I 

22658 DATA 34, 76, CE, D6,2F,FF,68, 2D, CE. D6 

. 16,E6,C8,C1,64,27, 18, Bt>,E8, 03,28, F5, IB, 

50, 18, 45,1 4, 2A, 28, 54.68, 2E, 45. 76, 65, 69, 6 

C6G, 65, 61, 75,26,2a, 64, 35, 76, 39 

22666 FOR 1-0 TO 63+8*< <NC-1 >«4*2 > 

22878 READ KK 

22686 POKE 1HD6£F*I,KK 

22690 NEXT I 

22186 DATA 16,16,56,254,56,16,16,8 

22116 DATA 255,127.63,31,15,7,3,1.255.25 

4,252,248,246,224, 192,128 

22128 DATA 146,254,146,146,254,146,146,2 

54,254, 146, 146,254, 146, 146,254,146 

22136 DATA 64,96,127,127,63,63,31,7.127, 

255, 255, 255, 254, 254, 252, 248 

22148 DATA 224,248,126,126,63,63,63,63 

22145 'EIFFEL 

22156 DATA 4,5,2,3,2,2,1,1,166,96,64,192 

,64,64,128,128,144,248,126,63,21,26, 15,7 

, 9, IS, 38, 252, 186, 1 84, 246, 224 

22155 'DE GAULLE 

22166 DATA63,63, 1,1, 15,13, 1,1,252,252. 12 

9. 128,246,246,128,128,1,1,1, 1,1,1, 1,1,12 

8. 128, 128, 128, 128, 128, 128, 128 

22165 'JEANNE D'ARC 

22170 DATA 7,3,7,4,7,3,15,3,144,16,159,1 

38,138,14,196,4,217, I IS, 37, 31, 7, 7, 7, 7, 1 < 

7. 116, 156,224,159, 156,156, 156 

22185 'CHARLES VI LE FOU 

22198 DATAi45,i92,e,e,e,e,e,e, 144,192.0, 

0.6 ,6, 8,^8, 63, 3 1,3 1,63, 63, 123, 115, 195, 246 



,224,248,241,248, 185,159, 134 

22195 'HENRI IV 

22288 DATA 192,32,31,1,16,8,16,6,11,4,24 

8,128,8,16,4,8,127, 123,83,71,67,65,64, 19 

2 , 254, 242, 258, 254, 238, 242, 1 1 4, 27 

22265 'CLOVIS 

22218 DATA31, 15,6,7,6,7, 14,31,248,246,22 

4,96,224,96,246,248,31,63,96,239,233,238 

, 111,63,248,252,6,247,215, 167, 118,252 

22215 'ROLAND 

22228 DATA 67,34,36,68.68,8,8,6,255,255, 

253,241, 198, 128,0,6,248,255,31,15,15,59, 

67,129,6,6,192,224,248,252,254,255 

22225 'DIDEROT 

22238 DATA255,255,99,39, 16,9,4,3, 178.213 

,235,245,251,253,61,255,8,255,131,255,13 

1,255,131,255,8,8, 128,64.160,88, 168.84 

22235 'LOUIS XVI 

22240 DATA48,48, 48,48,49,51,55,63,12, 12, 

76,264,284,284,252,252,224,255,63,68,56, 

68,63,63, 15,255,252, 124, 66, f 24, 252, 252 

22243 'PASTEUR 

22238 DATA8, 127,254.252.243. 194. 106,56,6 

2. 31, 15,7,6,6, B, 8, 8,4,2. 1, 1,8 6,6.6.6. 6. 

128, 192,248,128, 124 

22255 'CHARLEMAGNE 

22268 DATA£,38,18,243, 144,228, 128,224. 16 

6. 160. 128, 128, 8, 8.0.0,48', 43,59, 186,124,1 

fi. 56. 59. 83, 8. 6. 7. 4. 62, 36, 167 

22265 'LOUIS XI 

22278 DATA 126,128,176,255,85,42,21,10,5 

3.43,53.251.93, 175.87, 171,255, 151, 157. 13 

7.128, 128,128,128,224.240,232.236, 118.23 

5.245,43 

22275 'NAPOLEON III 

22288 DATA 127,25,24,16,22.63,127,63,254 

. 146,2,0,0, 128, 192,240,0,8,255,28,127.25 

Z. 127, 127,6,8,255,204,254,254,255,255 

22285 *L0LIS XV 

22290 DATA167, 16, 168, 193,225, 1,0,0,56, 12 

4.254,255,255,239. 198,8,8,8,28,62, 127,25 

5,255,247,6,32,64. 128.8, 126,128, 144 

22295 'NAPOLEON Itr 

22300 DATA 15,7,71,127,62,28,8,0,248,240 

.224,8,8,8,8,8,26,12,7,7. 15, 15, 15. L5, 166 

,,266, 158, 188,256,254,254,252 

22318 'DAG0BERT 

22328 DATA 27,63,54,126,118,236,226,252, 

232,252, 168, 126, 118,55,59,63, 18,4, 18,4,1 

6,31,27,31,88,32,88,32,88,248,232,248 

22325 'LOUIS-PHILIPPE 

22336 DATA 15,7,7,7,3,1,1,1,241,227,229, 

235,213,186,236,248,15,63, 127,255,255,25 

5. 127,31,246,252,254,255,255,255,254,248 

22335 'LOUIS XIV 

22346 DATA 159,31,79,135,19,32,9,145,248 

.248,242,225,288,4,32, 17, 136,4,32. 19, 135 

.79,31,31, 137,144,4,208,225.246,248,249 

22345 'CH CORDAY 

22356 DATA 3,1,0,0,0,6,6,8,224,224,254,4 

8,40,36,35,3, 128,64,48,56,30, 15,15,7,8,8 



,8,8,8,8,128,192 

22355 'JACQUES COEUR 

22366 DATA 127,31, 15,23,27, 29, 38, 8, 2*4, 2 

48.248.232.216. 184. 128. 8. 1 1. 31. 1 18. 123.2 
47, 235, 127,255, 96, 248, 246, 221 , 251 , 254, 25 
5,235 

22363 'FOUBUET 

22378 DATA 16,1,3,7,7,3,3,1,36,248,246,2 

24,248,235,254,248,6,8,6,7,63,255,95,51, 

48, 96, 224, 224, 246, 248, 248, 216 

22375 'ST-LOUIS 

.22336 DATA 127,63,43,3,7,7,2,6,254,226,2 

24,248,246,252,216, 128,8,8,6,1,7,31,31,1 

27, 128, 128, 128, 126,248,240,252,235 

22385 'LOUIS XIII 

22398 DATA 6,15,11,235,178,42,32,112,88, 

248,8, 192,8,8,6,8,255, 142,132,4,4,21,14, 

3, 224, 32,32, 7, 4, 22,28, 215 

22393 'GAMBETTA 

22468 DATA 1 19, 1 1 1, 1 1 1, 1 19,3»,31, 7, 3,238 

. 246, 246, 238, 228, 248, 224,1 92, 7<7,7,"1> 1,3 

. 13,39,224,224,224, 128, 128, 192,246,228 

22415 'PIERRE L'ERHITE 

22426. DATA 235,253,253, 131,131,131,131,2 

55,255,255,255,193.193,193.193,255,1,3,7 

. 11,19,33,67,233, 128,192,224,268,286,196 

, 194,235 

22425 'JACQUES CARTIER 

22438 DATA 229,197,5,101,66.28,12,4,195, 

224,248,216,248,248, 184, 152,31,63,127,25 

5. 253,252,232, 229, 248, 252. 254, 255, 255, 95 

,79,71 

22435 'FRANCOIS I«r 

22448 DATA 95,62.3,1,5,3.6,6,216,246,184 

.255,253,31,23,31,0, 14,29.52,61,44,63.27 

.8, 192, 176,8,4,138, 129,16 

22441 'JOFFRE 

22442 DATA 127,255,255,127,12,8,8,15,255 
,255,119,255,66,68,68,252,8,8,8,8,8.24,6 
6,66,6,6,8,8,8,24.66,66 

22445 'VATEL 

22466 DATA 235,59.126.123.31.14,3,8,254, 

212.254.216.254.235.254. 152.31.3.1.1.7.3 
1.127,233,248, 128.8.8, 192,240.248,254 
22465 'LAFAYETTE 

22478 DATA 170,6,85,0,176,8.85,255,255,8 

,255,8,253,8,235,6 

22666 RETURN- 

29999 "'""" 

70000 'ACRANDIR 

38065 ',,,,,,,, 

38818 LOCATE 6,6,8: C0L0R6: PRINTP1 

36815 COLOR 5 

36838 FOR I«8 TO LONG 

30840 FOR J=6 TO LARG 

30850 IF POINTU, J)-8 THEN LINE' C+<K '41, 

L*(K>»>J>-iO<IO»I*K.L*<K>»J+IO, INTCRND46 

♦ 1 ) 
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SOUS LA HOULETTE 
DE PACKARD 



On travaille beaucoup sous la 
houlette de Packard, puisque 
le conslructeurvientd'annoncer 
la sortie effective de 282 progi- 
ciels fonctionnanl sur son ordi- 
nateur PC Touchscreen (lordi- 
nateur qui reagit quand on tui 
chatouille lecran) Dans le pa- 
quet. on trouve de 
tout :graphisme, fichiers, pro- 
grammes de bureau, etc ..Au 
boulol. les clients ! 




LA MICRO EST ETERNELLE 



Tout va pour le mieux dans le 
meilleur des mondes. Les fa- 
bricanls americains dordina- 
teurs ne se sont jamais aussi 
bien portes : Rank Xerox, 
apres tant d'autres "grands" du 
metier, arrete definitivement sa 
production de micro-ordma- 
teurs apres le flop total de son 
Xerox 820 (a application pro- 
fessionnelle). Malgre cela, 
vous les connaissez ces ame- 
ricains : meme au pire de la 
tourmente ils trouvent un 
moyen de sen sortir el d'en- 
granqer des belles piles de bil- 



lets verts. Le superbe reseau 
Xerox Store ne s'arretera pas 

pour autant : les photocopieu- 
ses continuent. D'autre pad. 
les dirigeants de Xerox France 
marchandent actuellement 

avec Toshiba pour la distribu- 
tion exclusive des micros du 
constructeur japonais. Alors 
bientot le MSX Toshiba dans 
nos frontieres ? 




ILS SE CACHENT, 
QUE CACHENT-ILS ? 



Infogrames a tenement honte 
de sa production quits ont de- 
cide de mertre les voiles : quit- 
tant les coins chicos de Lyon, 
ils vont se planquer au fin fond 
de la banlieue Villeurbannaise. 
Pour les lettres de menace. 
adressez-vous au 79 rue Hip- 
polyte Khan. 69 1 00 Villeur- 

banne. Si vous preferez les C TcHCK^** 53 ^' 
gargouillis et aulres crachote- ^_-— -*^ *• 

meats comme reponse a vos 



{Com I 
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Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Oepuls plusieurs semaines, 
vous profitez dun cours d as- 
sembler decompose en deux 
parties essentielles (i'une theori- 
que. I'autre pratique). 

Cette semaine le 6502 d APPLE 
en prend plein la memoire La 
semaine prochaine ce sera te 
tour du 6809 du T07. T07 70. 

Jusqu'a present, les cours prati- 
ques suivants ont ete publies: 

N* 55 — ZX 81 

N" 56 — ZX 81 

N* 57 — ORIC 1 . ATMOS 

N* 58 — APPLE 



N"59 
N-60 
N"61 
N'62 
N'63 
N*64 
N-65 
N"66 
N°67 
N-68 
It" 69 
N"70 
N°71 
N*72 
N*73 
N*74 
N-75 
N'76 
N*77 



• T07. T07 70 

• COMMODORE 64 
. ZX81 

. ORIC 1. ATMOS 

. APPLE 

. T07. T07 70 

. COMMODORE 64 

. ZX81 

■ ORIC I. ATMOS 
. APPLE 

. T07. T07 70 

■ COMMODORE 64 
. ZX81 

. ORIC 1 . ATMOS 
. APPLE 

• T07. T07 70 

. COMMODORE 64 

. ZX81 

. ORIC 1 . ATMOS 




ASSEMr?l«(C<i 



Souvenez-vous de i organ.- 
gramme de la semaine derniere 
Nous avions construit un pro- 
gramme utilisant le registre 
condittonnel. Nous pouvons 
aussi decomposer Taction de 
cette routine en une suite d'or- 
dres executables par un ordina- 
teur Nous obtiendrons alors une 
representation unidimensionnelle 
de lordinogramme precedent 

0~>I1 

1 ->I2 

2 --> rien (le registre condition- 
nel n'est pas conceme) 

3 -> Test sur la vaJeur du bit Z. 
Si la condition est venfiee alors 
alter en 6 

4->l5 
5 --> fin 
6->l3 
7->H 
8 --> aHer en 1 

Vous vous rendez compte main- 
tenant de lutilite de ce registre 
conditionnel. La possibilrte de 
tester les bits qui le composent 
un a un autorise la construction 
de tests ires performants per- 
mettant des operations multi- 
octets, des corrections automati- 
ques d'erreurs de caicul... 

Mais revenons plutot a la diffe- 
rentiation des COP. La methode 
generalement employee pour la 
reconnaissance des COP ne- 
cessitant des donnees de ceux 
qui n'en demandent pas est 
bases sur une categorisation de 
ces COP. Ainsi I'infofmaticien 
qui realise la micro-prvgramma- 
tion d'un micro -processeur 
creera quatre grandes tamilles 
de COP : les arithm^tiques, les 
logiques, les transfers et les 



Nous avons done maintenant 
ditlerenls groupes de COP. Le 
probleme se situe actuellement 
au niveau des octets qui suivent 
ou ne suivent pas le COP. Nous 
pouvons, sans aucun risque, 
dire que I'adressage est une 
fonction du COP employe. Nous 
pouvons meme, dans un esprit 
punsle et mathemabque I'ecrire 
sous la lorme suivante ; 

Adressage = F (COP) 

L'adressage est difficile a expli- 
quer de facon generate pour la 
bonne raison que d'un micro- 
processeur a I'autre d'enormes 
differences apparaissent dans la 
gestion des adresses MaJgre 
tout, it est possible de degager 
(tout comme pour les COP) des 
branches separees dans les 
modes d'adressage. A la base, 
n'importe quel micro-processeur 
dispose dun certain nombre de 
types d'adressage qui sont ; 

a. l'adressage immediat 
b l'adressage absolu 
c. l'adressage relatif 

Dans ces trois categories, cer- 
taines donnent naissance a des 
sous-categories, et e'est juste- 
ment celles-la qui existent ou 
n'existent pas suivant les micro- 



tegorie "absolu - . Nous allons 
trouver un ensemble de sous- 
categories (au nombre de qua- 
tre) qui definissent des modes 
d'adressages autorisant des ma- 
nipulations complexes de la me- 
moire. Ces sous-categones se 
repartissent de la maniere sui- 
vante : 

a. adressage absolu simple 
b adressage absolu indexe 

c. adressage absolu indirect 

d. adressage absolu indexe indi- 
rect 

a. Le premier cas ne necessite 
pas d explications particulleres. 
sa representation schematique 
ressembie a ce qui suit : 



COP 1 adresse absolue 

Adresse = adresse absolue 

L'adresse absolue peut etre 
codee sur un ou deux octets, 
suivant quit s'agit dun adres- 
sage en page zero (adresses 00 
a FF) ou dans les autres pages. 
Cette adresse est codee en bi- 
naire non signe . cest a dire 
que Ton peut adresser directe- 
ment sur deux octets les 64 Ko 
generalement presents dans les 
micro-ordinateurs grand public 
{FFFF = 65535 - 64 x 1024) 

b. L'adressage absolu indexe va 
nous permettre d'introduire une 
nouveile notion dans l ensemble 
des registres La majorite des 
micro-processeurs contempo- 
rains (6502, Z80. 6809) dispo- 
sent dau moins deux registres 
dits dindexation (ou registres 
d'index }. Lorsque le micro-pro- 
cesseur rencontreun COP qui si- 
gnifie pour lui que l'adressage 
est indexe. il va effectuer le cai- 
cul suivant : 

adresse = operande + contenu 
du registre d'index 

Sa representation sous forme de 
schema peut ressembler a ce 
qui suit : 

ADRESSAGE ABSOLU IN- 
DEXE 




Regardons a linterieur de la ca- 



Adresser adresse t +X 
Grace a cette methode d'adres- 
sage la possibility de construire 
des boucles se fait jour ; nous 
pouvons effeclivement avoir un 
operande stable et un registre 
d'index qui s increments ou se 
decremente a linterieur dune 
boucle. Nous aurons alors acces 
a un groupe d octets consecutifs 
de la memoire (cette methode 
de simulation de boucles est 
Ires utile dans la gestion de 
table de donnees. par exemple). 

c. L adressage absolu indirect 
ouvre la voie a une nouveile di- 
mension des acces a la me- 
moire Cette fois-ci. il s'agit 



d'avoir l'adresse dune adresse 
comme operande du COP Lors- 
que le micro-processeur recon- 
naitra un COP faisant appel a 
l'adressage indexe, il ira cher- 
cher a l'adresse indiquee une 
nouveile adresse qui sera celle 
de la donnee a trailer. Sa repre- 
sentation donne ceci : 



COP adresse I 



Adresse - adresse 2 

Lutilite de ce mode d'adressage 
nest pas immediate, mais dans 
certains cas ou Ion doit traiter 
plusieurs zones memoire de ma- 
niere identique (augmenter les 
valeurs d'une table de donnees 
par exemple) nous ne pourrons 
nous contenter de l'adressage 
indexe qui n'ouvre la parte qua 
des zones de 256 octets (les re- 
gistres d'index etant generale- 
ment de huit bits). 

d. L'adressage absolu indirect 
indexe peut etre un adressage 
absolu indexe indirect Ne sou- 
riez pas ! La distinction est en 
fait essentielle dans la mesure 
ou certains micro-processeurs 
traitent lindexalion avanl ('indi- 
rection alors que d autres micro- 
processeurs soccupent d abord 
de 1'indirection puis de I'mdexa- 
tion. 

Le principe de cette adressage 
reste simple a comprendre puis- 
qu il ne s'agit en fait que dun 
savant melange des deux 
modes d'adressage vus prece- 
demment. Supposons que notre 
micro-ordinateur fonctionne sur 
le principe de l'adressage indi- 
rect indexe Le micro-processeur 
voit. d'apres le COP. qu'il a af- 
faire a un adressage compose. 
Il va tout dabord s'occuper de 
1'indirection : il va done prelever 
a l'adresse qu'il possede comme 
operande une nouveile adresse 
et a cette adresse il va appliquer 
le principe de (indexation. Nous 
nous retrouverons avec une 
operation de ce type : 

ADRESSAGE ABSOLU INDI- 
RECT INDEXE 




L'ASSEMBLEUR PRATIQUE 
Langage machine... sur APPLE 



?adresi 



Adresse = adresse 2 + X 




Avez-vous vu la derniere lois la 
gourance totale de votre 
HHHHebdo prefere ? 
Nous ne serons pas de mau- 
vaise foi au point de vous dire 
que lerreur etait voulue. Nean- 
moins. nous sommes quand 
meme assez chiens. et je pose- 
rai la question fatidique : 
combien d'entre vous se sont 
apercus de lerreur ? 
Ne roi/gissez pas et precipitez- 
vous sur le numero 73. relisez 
les deux derniers listings et cnez 
tres fort : NUUUUUUUULL ! 
Ca va mieux ? Ok, alors tout 
dabord accrochez-vous car 
cette semaine cest pas du ga- 
teau et voict le bon listing. 

Listing corrige ; 

ORG $300 

LDX*$00 

BOUCLE LDA CHAINE.X 

BEQ FIN 

JSR $ FDED 

INX 

JMP BOUCLE 

FIN RTS 

CHAINE ASC "HEBDO" 

Le programme charge dans le 
registre X la valeur 00. Puis 
dans une boucle. met dans le 
registre A loctet se trouvant a 
l'adresse 30F+ X. cest a dire 
pour linstant 30F+ 00= 30F. 
Get octet (celui qui se trouve a 
l'adresse 30 F) est-il egal a 
z6ro ? Si oui. aller en RTS. 
Sinon. afficher le caractere 
ASCII (voir Hebdo 73) se trou- 
vant dans A (JSR $ FDED), in- 
crementer X. charger dans A la 
valeur se trouvant a r octet 
30F+ X. done maintenant 30F + 
01= 310 (n'oublions pas que 
nous sommes en hexadecimal), 
et ainsi de suite. (Notez que le 
break sert a ajouter 00 apres la 
suite de caracteres et indique la 
fin de la chaine). 

Nous avons vu la derniere fois 

3ue ('instruction JSR permettait 
'effectuer un saut a un sous- 
programme, et lorsque ce sous- 
programme rencontrait un RTS. 
le programme principal conti- 
nual! son chemin. Exemple : 

ORG $300 
L0A*$C1 
JSR $ FDED 
LDA#$C2 
JMP $ FDED 

Equivalent hexadecimal : 

300 :A9 C1 20 ED FD A9 C2 4C 
EDFD 

Ce programme charge dans A la 
valeur $ C 1 (caractere A en 
ascii). part en sous-routine d'affi- 
chage (JSR $ FDED). rencontre 
dans cette sous-routine un RTS, 
revient a notre programme, et 
affiche un B Nous aurions pu 
ecrire 

LDA #$ C2 
JSR $ FDED 
RTS 

mais pourquoi revenir a notre 
programme pour en ressortir 
tout de suite ? Si nous effec- 
tuons un JMP $ FDED, ce sous- 
programme se terminant par un 
RTS. I'Apple nous redonne la 



main automatiquement Vous 
n'avez pas bien saisi ? Je ne re- 
commencerai pas. il vous suttit 
de relire les lignas precedentes. 
Gniak gniak. 

Ce chapitre se nommant PILE et 
autres aneries. il faudrait peut- 
etre en toucher mot ! 
Done, vous avez compris. le 
JSR. le RTS ou quelque chose 
dans le genre doit savoir ou re- 
prendre le programme lorsque le 
sous-programme est termine 
Cest la quintervient cette pile, 
appellee Stack en anglais que 
les programmers Forth doivent 
connaftre comme leur poche. 
La pile utilise la structure LIFO 
(Lasl in-First out ou Premier 
entre. dernier sort!) L'exemple 
que tout le monde s'accorde a 
trouver le meilleur est celui de la 
pile d'assiettes. Si vous posez 
une assiette rouge, puis une 
bleue dessus. la premiere res- 
sortie (a moins que vous ne 
soyez un etre vicieux qui cher- 
che la complication) sera la der- 
niere empilee. cest a dire la 
bleue. Ceci est un principe tres 
simple qui est repris par le 6502 
comme moyen pour retrouver 
l'adresse de retour de sous-pro- 
gramme. Le 6502 sait toujours a 
quelle adresse il se trouve grace 
a lemploi du program counter 
ou PC. Le program counter est 
le seul registre de 16 bits du 
6502 et contient en permanence 
l'adresse sur deux octets de 
linstruction a executer. Cest 
dans la pile que le 6502 va sto- 
cker l'adresse de retour de 
sous-programme lors d'un 6ven- 
tuel JSR. la pile allant de 
l'adresse $ 100 a l'adresse $ 
1FF. Le premier emplacement 
memoire de la pile est $ IFF, 
mais plutot que de pousser les 
valeurs vers $ 100 a chaque 
empilage, il a ete cree un poin- 
teur de pile. Vous allez devenir 
fous. je sais. mais tout ceci est 
necessaire pour la bonne 
comprehension du probleme 
quest I'appel a un sous-pro- 
gramme. A chaque nouveile va- 
leur. le pointeur de pile ou stack 
pointer est replace afin d'indi- 
quer la position de cette valeur. 

Considerez ce petit programme : 

ORG $ 300 
DEBUT JSR $ FC58 
LDA $ 00 
STA $ 2FF 
JSR $ FDDA 
LOA 1t$ A0 
JSR $ FDED 
LDA $ 2FF 
JMP $ FDED 

Equivalent hexadecimal : 

300 :20 58 FC A5 00 8D FF 02 
20 DA FD A9 A0 20 ED FD AD 
FF 02 4C ED FD 

II se contente de nettoyer l'6cran 
(JSR $ FC58). d'afficher la va- 
leur se trouvant a l'adresse 
(JSR $ FDDA) apr6s lavoir sto- 
ck6e dans en $ 2FF. afficher un 
espace (LDA *f$ A0) et repren- 
dre la valeur pour lafficher sous 
forme de caractere Ascii (JMP $ 
FDED). Cela nous oblige a utili- 
ser une adresse de stockage 
temporaire en $ 2FF qui nous 
prend de la place et nous fait 
perdre du temps Ce nest pas 
avec le programme que je vais 
vous donner ci-dessous que 
vous allez vous apercevoir du 
temps gagne car cela se me- 
sure en millisecondes, mais sa- 
chez que dans un long pro- 
gramme, cela peut avoir 
beaucoup dimportance. 

ORG $ 300 
DEBUT JSR $ FC58 
LDA $00 
PHA 

JSR S FDDA 
LDA $ A0 



JSR $ FDED 

PLA 

JMP $ FDED 

Equivalent hexadecimal 

300 20 58 FC A5 00 48 20 DA 
FD A9 A0 20 ED FD 68 4C ED 
FD 

Linstruction PHA que nous 
voyons pour la premiere fois 
place sur la pile la valeur de A. 
Cest tout, el tres pratique. Car 
la pile peut nous servir de sto- 
ckage temporaire Le tout est de 
depiler ce que Ion a empiie, et 
ceci se produit par linstruction 
PLA. 

Cest done l'adresse de retour 
qui est empilee grace a ('instruc- 
tion JSR. Si pendant un sous- 
programme, vous empilez d'au- 
tres valeurs sur la pile, assurez- 
vous de depiler absolument 
avant d executer un RTS ! Par 
exemple. si l'adresse de retour 
est $ 302. que dans le sous-pro- 
gramme vous empilez deux fois 
la valeur $ 20 et que vous exe- 
cutez un RTS sans depiler. 
votre adresse de retour sera 
consideree comme etant $ 
2020, ce qui est pour le moms 
genanl ! Mais lorsque Ion mai 
trise parfaitement la pile, on 
peut s'amuser avec cette carac- 
teristtque et employer des ruses 
de programmation qui permet- 
tent de gagner un temps fou. 
Le programme suivant illustre ce 
que je viens d'expliquer : 

ORG $300 
JSR ESSAI 

RTS 

ESSAI LDA# $ 20 

PHA 

PHA 
RTS 

Equivalent hexadecimal : 

300 :20 04 03 60 A9 20 48 48 
60 

II serait judicieux de mettre un 
RTS en $ 2020 (2020 :60) avant 
d'executer le programme afin 
d'eviter un eventual plantage. 
Vous pouvez y mettre pour 
verifier que le programme y va 
effectivement. 

Si vous avez fait tourner le pro- 
gramme ci-dessus en mettant la 
valeur 00 en $ 2020. vous vous 
etes peut-etre apercu que le 
programme s'arretait, et vous af- 
fichait des chiffres bizarres. Par 
exemple. vous pourriez obtemr 



0306-A= 00 X= ID Y= 34 P= 
B0S= F6 

La premiere colonne est en fait 
l'adresse que contient le PC 
(compteur ordinal), qui est 
comme je I'ai precedemment 
ecrit. l'adresse de la prochaine 
instruction a executer. Lors d'un 
break, ce qui est affiche est 
l'adresse ou se trouvait le break 
+ 2. Je vous expliquerai pour- 
quoi plus tard, mais ceci est tres 
utile pour "debugger" vos pro- 
grammes (eiimininer les fautes 
de programmation). car le fait 
d'inserer des breaks de temps 
en temps aide a suivre le derou- 
lement pas a pas. Les trots 
autres colonnes correspondent 
aux valeurs con'enues dans les 
registres A, X et Y. et il est 
aussi tres interessant de pouvoir 
lire ces valeurs pendant un de- 
buggage Nous ne verrons pas 
pour linstant la signification des 
deux autres colonnes qui sont 
plus compliquees a interpreter 
Voila. Vous avez de quo! planter 
votre Apple en beaute, amusez- 
vous, rendezvous dans un 
mois ! 
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DEMANDEZ LE PROGRAMME soft-parade 



Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretendonspas que cette liste est complete et definitive etil est evident que nous y rajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes quijouissent d 'une 
bonne reputation et qui se vendent surtout grace a la publicite et aux conseils des vendeurs qui ne peu- 
vent pas conna'ttre tous les logiciels disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - benefi- 
ctent en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidement ar river a faire baisser les tarifs des fournisseurs pour atteindre I'objectif que nous 
nous sommes fixe: ramener les prix a une plus juste valeur I 

Les classements sont faits en fonction de I'interet du programme et ne tiennent pas compte des prix, 
c 'est a vous dejuger de I'opportunite de la depense. N'oubiiez quand memepas que si le rapport quali- 
te/prix est mauvais, le logiciel ne peut figurer dans cette page ! 




Si vous etes ABONNE. 
deduisez VOUS-MEMES 
vos 10 % de REMISE 
sur I* bon de commande. 
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J |eu d arcade ifljjidi 

E MuCMrl 

L langage 

M manelie de (eu nei 



> nouveau 



tiwu-i flu sang irord >tni»ce Humous g 
te ues oue «j u! prendre; lei com™ 

WHISTLERS BROTHER 



LORDS OF MIDNIGHT 



BEACH HEAD 



*£ COBRA PINBALL 



REALM OF IMPOSSIBILITY 



qunnlil* dKcord mi 

LE DIAMAHT DE LILE MAUDITE 



SABRE WULF 



•*"" SPACE SHUTTLE SIMULATOR 



HYPER BIKE 
EfMM Phjioe 



HOVHMWni 



MISTER ROBOT AMD MS ROBOT FACTORY 



« El «>i*g«ierque Super-gini 



KILLER WATT 



' " SMRJLATEURS DC VOL AMD C 



enceplKmnellei 



SEVEN CITIES OF GOLD 

PAINTING JOE 

TALES OF THE ARABIAN NIGHTS U" coup U. W»c « « Iro« «k«. *, ™«. Bon^ur re. [»«*,. ■ 

I <niimewi««en<d-«tf«w miwnur .•»uip™u»emw»iwroei»rti.»Mi» RAID OVER MOSCOW 

jenl i C'na minulll *t in phetei (enlil 



Vl.Ul tlH pjJjmO »0-p« ]UM|U'« I 






I une eprdernie Rienquec* del* C'reT 



(sympii malt pM 



relBSF.sveeK 



Begonroie Aaecouv 



■ guerre du Pacji-que. *i creatunu bmrmoe Par adora. el 



UNDER WURLOE 



Sue E"en. encore <oui i omp.re oe I* twMon, m luce una mania era* a* parano 

CMNESE JUGGLER DRIVMG DEMON 

MATCH PCMNT 



STANLEY 



.30 .uuinxmom WANOn DU D> GENIUS 



nPAROLES Sin voire MOSwuuauuorre d e.anlure irinrjin pour Spec 
MASK OF THE SUN 



1* ■• lerreu, oui «jui laooorl* 



'!""' TENDREPOULET 



ONE ON ONE (Dr J A Urry Bird) 



re de prpleclron el dun 



■ngt M Mpuej ;;,.»,,, ... 



,"■■.■..■ -. r ■ '. ■ ■■■ 



SUPER JEEP 



pSychiathk: 

BOUNZY 

lolodehunne 



BON DE COMMANDE A DECOUPER OU RECOPIER^ LOMBRIX 

SHIFT EDtTfONS. 27. rue du Gal Foy 75008 PARIS- I "rm^til 

Uare".«"""" SCORPIRU! 

I 

I 
I 



PWBALL CONSTRUCTrON 



TOTAL . 
REDUCTION 10 \ SPE ClAt ABOMHCS * 



• ' v, "'»0" o*» logewilt comrhanii»* Cheque 



REVENGE OF THE MUTANTS CAMELS 



mepojer 1 I fiopilal El , 



LUNAR LANDER 



GHOSTSUSTERS 



LE VOYAGEUR DU TEMPS 






10 MS ASSASSIN 



COMMODORE 64 



;ioc* runner 



It REVENGE Of THE MUTANTS 






M ONE ON-ONE 



OfllC 1 / ATMOS 



SFRELON 

» L£ DtAMANT Of L ILf U 

DBK.BA5TOK 

I PSYCHIATRIC 

1 TEMDRf POULET 

1 LANCELOT 



SAUf SPECIFICATION COHTtlAMe, TOUS CES LOGICIELS SONT 



COMPATBLES UOS Ti 
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ROULCAISSE 



Un programme a la gloire des cadences inlernales 
pour les mordus du travail a la chaine. 



Thierry MORANGIS 




O'Ab&RE LE TRA^AiL^) 
-A LA CUAf/lEJ 



SPECTRUM 




j^— T^—^^^ 



1 REM 
3 r£m 



5 §ER 

8 REM 

9 REM 
Id REh I ■■ i 
11 REM 

IS LET HSC=0 
F-2 LET h-1 
. OUER 1 LET 
£R 7: CLS 



THIERRY' MORANGIS 
PRESENTE 



ROULCAISSE 
SPECTRUM 48K 



LET UQ*1 LET RS 
BRIGHT 1 FLASH 1 
: -0 OOROER 1 PAP 



LET 



-255 LET y 



WV 



>»7 THEN LET 



14 LET 4 3-2 
y«17B 

is plot 0,0 

17 INK Z 

28 FOR X-0 TO 67 
48 DRAU xx ,0; DRflU _ . 
46 LET xxixx-it . LET 
58 DRflU -X " 
DRflU 0,-yy 

55 LET yy.yy-i* LET xx-xx-4» 
66 IF »«i« AND X>»2 AND h -0 TH 

EN OUER 1: LET h-8 

57 IF x-20 AND Z>-1 AND h-1 TH 
EN OUER 0: LET h "0 

56 IF ASDF-1 AND IINKEY*-"A" 
R lNKEY*-"4") THEN GO TO 1080 

100 NEXT x : BEEP .5,0 

101 LET z-Z + 1 " 

z«a 

102 INK Z 

103 IF UO-4 AND flSDF-8 THEN PRI 
NT B0," RPPUYEZ SUR -fl" 
".: LET UQ=5: LET ASDr«l 

104 IF Z>=2 AND A5DF-8 THEN LET 
UQ-4 

110 GO TO 14 

112 REM «»«t**ECRAN*»*#* 

115 PAPER 0: FLASH 0: BRIGHT 0: 

INK 7: CLS 

120 OUER 0: LET * i-"ABABflBABABfl 
BABABABABABABP.BABABAB" 

125 BORDER 1: CLS PRINT AT 0, 

0, INK 6, PAPeR 0, BRIGHT 1, FLR 
SH £; II, AT 21,0. •« 

126 FOR X-l TO 20 STEP 2: PRINT 
AT x,0, INK 6, PAPER 0, BRIGHT 

1, FLASH 1,-B'iAT X + 1 ,«i "ft" ; AT X 
,31,"A-;flT X+1,31; -B": NEXT X 

127 PRINT AT 0,10, INK 7, PAPER 

a;" score: - 

128 RETURN_ 
990 REH 

1000 REM 

1001 REM 
1010 PAPeR - 
LASH CLS BEER .04,20: BEEP 
.05,30- BEEP .06,40; BEEP .05,30 

BEEP .04.20: PRINT AT 6,11: FL 
ASH 1, INK 2, PAPER 7,"R0ULCAISS 
E'.AT 3,8; "THIERRY MORflNGIS" ; AT 
4,12; "PRESENTE" 

1012 PRINT AT 10,4, "1 REGLES-'iflT 
12,4, "2:FAIRE UNE PARTIE";AT 14 
ENREGISTRER LE PROGRAMME' 



i013 IF INKEYf 
200 GO TO 1010 
1014 IF INKEY|»" 
,20 BEEP .05,30 
EEP .05,30: BEEP 



THEN 00 SUB 1 



■ THEN 
BEEP , 
.04,20: 



BEEP 

06,40 
CLS 



B4 



THEN GO SUB 



l _8_fr3_ 



, TO 2000 

1015 IF INK£Y|-" 

999 GO TO 1010 

1020 GO TO 

1199 REM 

1200 REM 

1201 REH 

1202 LET P«-~ LE JCU C0N5ISTE 
fl METTHE UN PETIT TAPIS ROULSNT 

EN FACE O'UN TROU POUR EUITER L 
fl CHUTE D'UNE CfllSSE." 

1203 LET P|iPlt 

CHAQUE TROU EST NUMER 

GTE. POUR PLACER LE TAPIS ROULANT 

EN FACE D'UN TROU IL 5UFFIT DA 

PPUYER SUR LR TOUCHE GUI CORRE 

SPOND A CE TROU.' 1 

1204 LET P»-PJ+" 

ATTENTION! UNE CAIS5E 

PEUT TOMBER 5UR UN AUTRE TAP 

IS ROULRNT MAIS SI Lfl CAISS 

E NE TOMBE PAS SUR UN TAPIS R 

OULANT UOUS PEROEZ..." 

1205 LET P*=Ps+" 

UOUS MARQUEZ DE5 PTS A CHAOUE 
FOIS QUE VOUS PERMETTEZ fl UNE 
CRISSE OE POURSUIUPE SON CHEMIN 

1206 LET P$-Pj+"SI UNE CRIS5E TO 
MBE SUR UN RUTRETAPIS UOUS PERDE 
REZ DES P0INT5" 

1207 LET PSrP|f. ATTENTION LE 
CONTENU DE Lfl CAIS5E NAIME 
PRS LES CHOCS' ! ! 

1210 BEEP .04,20 BEEP .05,30 B 
EEP .06.40 BEEP .05,30 BEER .0 



4,20 



FOR 



T C,0;P|i 
BEEP .01 



77 99 BASIC SIMPLE 



5 .:■ .".' 



Suite de la page 8 

RE TURN 

L--(TANlA) )- (SDfvll 



5340 
COSIA) 2)>) 

5330 L'ABSCL 

5360 

5370 

53B0 

S390 
5400 



34 1 1 
5420 
54 !0 
544i 
5450 
5460 
5470 
54B0 
5490 
5500 

55 1 
5520 

5B30 
5340 

3550 



00=L-0 

Q1=VAL<S£G»<STR*<0Q>, 

L*=STRt<Q>S,STR*<Ql) 

L=VAl- (L») 

RETURN 

REM »••.... ....«•».< 

QWMO/N)'?" 

LI = 11 

C0=24 

GOSUB 444 

CALL HCHARCll.30.631 

CALL KEY (3, A, B) 

CALL SOUND (1. 1000, 10 

CALL HCHAR [ I 1 , 30,321 

IF B<1 THEN 5470 



IF 



,•791 



• (A . 7B> THEN 5470 



CALL HCHAR< 1 I . 30,1 
CALL HCHARJ 1 1.25. 
RETURN 



-ngr 



~er 



~w — <§> — ^~ 



<& 



T2T 



"T3> C? <zT ® <3J 1& 1ST & CsJ" 



iSC^ T?0 

UB 9990: GO SUB 112 



,C*8: NEXT C 

1310 PRINT RT 21.0, INK 2, FLASH 
!,' APPUYEZ SUR UNE TOUCHE 

1320 IF INKEY*-"" THEN PAUSE 20: 
BEEP .04,20 BEEP .05, 30 BEEP 
.06,40: BEEP .05,30 BEEP .04,20 
: GO TO 1310 
1330 RETURN 
1999 STOP 
2010 REM 
2020 REM 
2030 REM 

2034 IF HSE\ . 

2035 GO SUB 9990: GO SuB 112 

2040 LET C»«"GH ": LET B«-"CDCDC 
OCDCDCDCDCDCDCDCDCDCDCDCD" 

2041 GO SUB 2042: GO TO 2046 

2042 PRINT AT 16,2, INK 7; FLASH 
li"l";P.T 18, 15; "8' ,RT 14,a;"3"i 

AT 14, 12, "4"; AT 14,83; "5"; AT 10, 

a, "6", at 10,18; "7 ,, l at 6, are-, at 
6,ai, ■■9" 

2043 RETURN 

2045 LET Bt-BKa TO )*8«(1> 

3050 PRINT RT 17,5, INK 6, "F",B» 
t T0 (i 7);' 7 B"JHT 17,17; ■F'jBit TO 

2060 PRINT AT 13,5, INK Bi'T" 
t TO *),"C",AT 13,14, "F",6t 
6);"E"jAT 13,35, "F ,M< TO 



TO - 



2070 PRINT AT 9,0, INK 6;"F';0»C 
TO 8t,"'E"iAT 9, IB, 'F",Bt( TO 11 



2080 PRINT AT 6,5, INK 
TO 13) , 'E'i AT 5,23; "F" 



BK TO B 



LET XT-11: 



- -■ 2045 wmmm 



OP" 

7041 FOR 

EP 0,P 

7045 PRINT AT > 

NDt6+l; BRIGHT 

;xi 

7050 READ 0,P. 
7070 PRINT AT Y 
ND*6+1, BRIGHT 



1 TO 37: READ 0,P 



1, Y», AT 



7080 NEXT S: PAUSE 1: PAUSE 1: F 
OR X-60 TO 63 STEP -.2: BEEP .02 
,X: NEXT X 

7090 PAPER 6 BORDER 1: BRIGHT 1 
: INK 9 CLS 

7091 IF SC>«H5C THEN LET HSC"SC. 
PRINT AT 10,6; FLASH 1;"U0TRE N 

OH: " : INPUT LINE N» 

7092 CLS ! PRINT AT 4,8, INK 0," 
UOTRE SCORE . "; SCAT B,3, INK l," 
LE RECORD EST DE:",H5C, r ' PT5..." 
: PRINT AT 12, a, INK B; "XL EST D 
ETENU PAR ", FLASH l.Nt 



"RPPUYEZ SUR 

.03,80 BEEP 

PAUSE 



2100 FOR R«l TO E: GO SUB 8910 
NEXT R 

6070 FOR I 
N LET XiR 
NEXT R 

6071 FOR R»l TO E GO SUB 8900 

NEXT R 

6078 IF INKEY*"'"- THEN GO TO 804 

5 

6074 GO TO 1B»UAL INKEY»*6100 

6110 PRINT AT YT.XT," " , AT 17, 

8, INK *; "FOB": LET XT. 8: LET YT 

■l7 

6119 GO TO 3945 

6180 PRINT AT YT.XTj" ";AT 17, 

14; INK 4; ,, FDE": LET YT-17; LET 

XT- 14 

6129 GO TO 8043 

6130 PRINT AT YT,XT," " i AT 13, 
8; INK 4; 'FOE": LET XT«8: LET YT 
-13 

6139 GO TO 8045 

6140 PRINT AT YT.XT, 
11, INK 4; "FDE": " " 
YT-13 

6149 GO TO 20*5 

6150 PRINT AT YT.XT," ";AT 13, 
33; INK 4,' i FDe": LET XT=82: LET 
YT-13 

6159 GO TO 8045 

6168 PRINT ST YT.XT," ",flT 9,2 
J INK 4,"FDE": LET XT"2 LET YT= 
9 

6169 GO TO 2045 

6170 PRINT AT YT.XT, " " ; AT 9,1 
3, INK 4; "FOE": LET XT-15 LET Y 
T-9 

6179 GO TO 3045 

6168 PRINT RT YT.XT," " , AT 6,2 

; INK 4;' , FDe , ': LET XT»2: LET YT» 

6189 GO TO 2043 

6190 PRINT RT YT.XT;" " ; RT 5,3 
0; INK 4;"FDE": LET XT -20 LET Y 
T«5 

6195 GO ' 

7009 REM | 

7010 REM 

7011 REM | 
7030 FOR L 

PRINT AT YlK) ,XIRJ, !Nf\ *;u»: D 

EEP .01,-3»X: BEEP .04,X: NEXT X 
: NEXT U 

7040 RE5T0RE 7100 LET U|»"IJ": 
LET K«* R KU": LET Y»-"MN"' LET Z| 



-1,X(R) , " 
SC.SC-5: 



BE 



7093 PRINT AT 21,4, " 
UNE TOUCHE " BEEP . 
.06.30 BEEP .07,40 

7094 go rr - 

7099 REM I 

7100 REM 
7 101 REM L 

7110 DATA it,«,i4,«,4i,<*,ti,« 
4.ZZ, 19,ZZ,19,XY ,88,ZZ,23,ZZ,82, 
ZZ,S4,ZZ,24,ZZ, 19,ZZ,19,XY,22,ZZ 
,28,ZZ.22,ZZ,24,ZZ,24.ZZ,37,ZZ,2 
7,XY,a6,XY,86,XY ,84,XY ,82 

7120 OflTfl XY,20,ZZ,30,ZZ,20,ZZ,2 
2,ZZ,28,ZZ,17,ZZ,17,XY,20 ZZ,80, 
ZZ,20,ZZ,22,ZZ,22,ZZ,17,ZZ,17,XY 
,20,ZZ,20,ZZ.20.ZZ,82,ZZ,28,ZZ,2 
6,ZZ,26,XY,24 ,XY,84 

7122 DATA XY,22,XY,a0,XY,19,ZZ,2 
a,ZZ,2a,ZZ,24,Zi,84,ZZ,19,ZZ.l9, 

xY,as,zz,8a,zz,aa,zz,a4,zz,84,zz 

,19,ZZ.19,XY,82,ZZ,2B,ZZ,aa,ZZ,2 
4 , ZZ , 24 . ZZ , 27 , ZZ , 87 , XY . 26 , XY , 26 

7123 DATR ■"' 

7997 REM r 

7998 REM 

7999 REM ' 
6000 IF 

(R),XIR), BRIGHT 1, INK 6, CI nc 
TURN 

6500 IF YiR) <3 THEN BORDER RND»6 
LET YlR}«16: BEEP .06,0: LET S 
C-SC»Rtl00. PRINT AT 0,17,SC 
8501 RETURN 
8901 IF RTTR IY(R) *1,X tR) ) "4 AND 

ATTR (Y(R) +l,XtRJ «-a) *4 THEN BEE 
P .08,0 LET SC-5C+10: PRINT AT 
0,17;SC," " : RETURN 
3902 LET TT«1; IF IRTTR lY(R)tl, 
X(R)+a)"7 OR ATTR (Y (R) +1 , X IR> +2 
1-69) AND ATTR (Y <R> t 1 , X CR) *3) "6 

THEN FOR T-Y [R) TO 19: LET YtR) 
«Y(H)*1: PRINT AT Y(R).XtR); INK 

5; BRIGHT l;C»;RT Y1R]-- 
. BEEP .08,T58: LET 

PRINT AT 0,17, INK 6;SC, : oy 

SUB 6980: 60 SUB 8048; IF TT<>5 

THEN NEXT T 

S905 RETURN 
910 IF XlRM-3 AND ATTR (Y(R)»1 
,X(P>))-4 THEN PRINT AT Y(R),XtR) 
... ... LCT Y (R)-YiR)-4: LET X IR 

S-37. BEEP .08,0: LET SC«SC+R*10 

: PRINT RT 0,17jSC," ": GO SUB 6 

500 

8912 RETURN 

8920 IF ATTR (Y CR) ♦! , X IR) ) «6 THE 

N BEEP 2,-80' LET TT-0: RETURN 

6921 IF ATTR (Y iR) t 1 , X tR) ) «198 T 

MEN GO SUB 7010 

8922 RETURN 

8999 REM 

9000 REM 

9001 REM 

9005 PRINT fl. *w, i«, 
TENDEZ" RESTORE 981C 

"A" TO USR "P-t? 

9006 READ A: POKE X.A: 
D*7: BEEP .001,RND*60: 
9«07 REM »*h**m 

9010 DATA BIN 11111111 

9011 DATA BIN 10000001 
9018 DATA BIN 10000001 

9013 DATA BIN 10011001 

9014 DATA BIN 10011001 

9015 DATA Bit" 

9016 DATA BII 

9017 DATA BII 

9018 REM »*e**o 

9020 DATA BIN 00000000 

9021 DATA BIN 01111110 

9022 DATA BIN 01111118 

9023 DATA BIN 01100110 

9024 DATA BIN 81108118 

9025 DATA BIN 01111110 
9036 DATA BIN 01111110 
9027 DATA BIN 00000000 
9036 REM **C#»C 

9029 DATA BIN 00881081 

9030 DATA BIN 11111111 

9031 DATA BIN 11111111 

9038 DATA BIN 00888088 

9033 DATA BIN $$$2i$&W 

9034 DATA BIN 11111111 

9035 DATA BIN 11111111 

9036 DATA BIN 00100000 

9037 REM **D**D 
9036 DATA BIN 80100008 

9039 DATA BIN 11111111 

9040 DATA BIN 11111111 

9041 DATA BIN 00000000 

9042 OflTfl BIN QVViVQQ? 

9043 DATA BIN 11111111 

9044 DATA BIN 11111111 

9045 DATA BIN 00801081 

9046 REM «»E»«E 
3047 DATA BIN 00100000 
9046 DATA BIN 11101000 
9049 DATA BIN 11110000 
3050 DATA BIN 11111008 
9051 DATA BIN 11111808 

3052 DATA BIN 11110008 

3053 DATA BIN 11101000 

3054 DATA BIN 88108888 
3855 REM t«F**F 

9056 DATA BIN 00008108 

9057 DATA BIN 00010111 



FOR XbUSR 



11111111 



YfASlC Si'Mpt-f? MA IS ALOR&} ^> 

^Zy^S^ X SAfr'c computus c'bst comme nt /^ 



3056 DATA BIN 88081111 

9059 DATA BIN 80011111 

9060 DATA BIN 80011111 

9061 DATA BIN 00001111 

9062 DATA BIN 00818111 

9063 DATA BIN 08008108 

9064 REM »*G»*G 

9065 DATA BIN 08081108 

9066 DATfl BIN 01101111 
9057 DATA BIN 01111111 

9068 DATA BIN 01101111 

9069 DATA BIN 01101111 
9078 DATA BIN 01111111 

9071 DATA BIN 01101111 

9072 DATA BIN 00001100 

9073 REM *»H#*H 

9074 DATA BIN 00118-380 

9075 DATA BIN 11110110 

9076 DATA BIN 11111110 

9077 DATA BIN 11110110 

9078 DATA BIN 11110110 

9079 DATA BIN 1111111* 

9080 DATA BIN 11110110 
90S1 DATA BIN 08110088 
9088 REM **I**I 

9083 DATA BIN 08118008 

9084 DATA BIN 01111000 

9085 DATA BIN 01101100 

9086 DATA BIN 11111008 

9087 DATA BIN 00110000 
9086 DATA BIN 00118000 
3089 DATA BIN 08111011 

9090 DATA BIN 00111111 

9091 REM **.J**J 
9098 DATA BIN 08080880 

9093 DATA BIN 00000000 

9094 DATA BIN 00000000 

9095 DATA BIN 00000000 

9096 DATA BIN 00000000 

9097 DATA BIN 00000010 

9098 DATA BIN 11108101 

9099 DATA BIN 11111018 

9100 REM **rv**K 

9101 DATA BIN 00111111 

9102 DATA BIN 80811111 

9103 DATA BIN 80011111 

9104 DATA BIN 00001111 
9106 DATA BIN 00000100 

9106 DATA BIN 00000100 

9107 DRTR BIN 000B0100 

9108 DATA BIN 00001000 

S109 REM *«L*«L 
110 DATA BIN 11111101 

9111 DATA BIN 11111010 

9112 DATA BIN 11111001 

9113 DATA BIN 11110000 

9114 DATA BIN 00180000 

9115 DATA BIN 00100000 

9116 DATA BIN " 

9117 DATA BIN 

9118 REM 4*M#«n 

9119 DATA BIN 00118008 
9130 DATA BIN 81111808 

9121 DATA BIN 01181108 

9122 DATA BIN 11111000 

9123 DATA BIN 88118080 
9134 DATA BIN 08110000 
9125 DATA BIN 00111011 
3136 DATA BIN 00111100 
9187 REM **N**N 

9138 DATA BIN 00000000 

9139 DATA BIN 00800000 

9130 DATA BIN 00000000 

9131 DATA BIN 00000000 

9132 DATA BIN 00000000 

9133 DATA BIN 00000000 

9134 DATA BIN 11100000 

9135 DATA BIN 00818008 

9136 REM **Q#*0 

9137 DATA BIN 00111011 
9136 DATA BIN 00011100 

9140 DATA BIN 08011111 

9141 DATA BIN 08081111 

9142 DATA BIN 00000100 

9143 DATA BIN 00000111 

9144 DATA BIN 00000000 

9145 DATA BIN 80888808 

9146 REM **P»#P 

9147 DATA BIN 11101000 
914B DATA BIN 08011000 

9149 DATA BIN 11111000 

9150 DATA BIN 11110088 

9151 DATA BIN 08108000 

9152 DATA BIN 88111000 
3153 DATA BIN 08800080 

9154 DATA BIN 08000000 

9155 RETURN 

9390 LET XY..123: LET ZZ-.14: LE 
T TT.l: DIM X(8) : DIM Y<8) : LET 
Z»l: LET XTaS: LET YT-16 
9991 LET XII) -88: LET X<8)-3a: L 
ET X(3)«55: LET X(4)=61: LET X £3 
>»69: LET X(6)-77: LET X(7)-86 
LET X 18) -89 

9993 LET SC-0 

9994 CLS BEEP .04,80: BEEP .05 
,30 BEEP .06,40 BEEP .05,30: B 
EEP .04,20: PRINT AT 10,4,' , NOMBR 
E DE CAIS5E5 (1<>S) " iNPUT E: 
IF E<1 OR E>8 THEN GO TO 9994 
9997 FOR 0-1 TO E: LET Yi0)«16: 
NEXT 

3996 RETURN 

3999 SRUE "ROULCAISSE" LINE 1: R 

ETURN • 



5560 REh ••••»■•..••■•.■..• 

5570 GOSUB 3850 

55B0 SC(It-SC(l>*3000 

5590 GOSUB 5010 

5600 RETURN 

5610 REM ••••*«••»»••••»• 

5620 DATA 35. 1C3E60EOE0603F1F, 36, 1B3C666 

67E66E7C3. 37, 7F7F IBlBlBieFSFO. 64. C3E7666 

67E666666. 91 , C0E0606060607F3F 

5630 DATA 92. 1F3F66666666FCFB. 93. C7E7667 

6 7E6E6666 , 94 , FFFF 18181B1B1818.95. DSDS60 1 

F1F 101818,96. 3C4299A1A19<?4?3C 

5640 DATA 97.000000FFFF. 98. 1818181818181 

818,99,O0000007OFiaiB18. 100, 1B1B180F07. I 

01. 181B1BF0E0 

5650 DATA 102.000000EOF01BlSie. 1 04 . 000B3 

85A145B2402, 103. OOOB7A5C 101C2240. 106,001 

07090100B10. 107, 0010FOAO300BO4 

5660 DATA 10B. OO00O000063C22E1 . 109.001S1 

eiBlBlB3C7E, 110.000O0OOOOO0O1B3C.48.3C7E 

666666667E3C 

5670 DATA 49. 0C1C3COCOCOCOCOC. 50. ;C7E063 

E7C607C3E. 51 . 3C7E060E 1E067E3C. 52. ^<.'t,^oAb 

C7C3C0COC.5r.3£-7C&07C3E063E7C 

5680 DATA 54,3E7C607C7E667E;c.5^.7.B7Li.'C0 

ClE0COCOC.56.3C7E6fa3C7Et J 67E:.C. i . 



E3E063E7C. 1 1 2. FFFFFFFFFF 
5690 DATA 6,1,14.1,9,1,9, 



, 1.6, 1, 



,1. 11. 1,2,3,5,3. 1.:. 

5700 DATA 94,95.97,35.36.37,64,91,92,93 

5710 DATA 4.3,4.14,6,3,6.14 

5720 DATA AAA, 9. 9B, BBB, 94. 5B, CCC. 13.01,0 

DD.8.90 

5730 DATA 125,262.125.294.75.330,75.294. 

125,262. 125,330. 125,349, 75,392, 75. 349. 12 

5,330 

3740 DATA 123.440.125.323.125,494,125.44 

O, 123.392,75.349. 75.33O.230.294 

5750 DATA 50O.262.S0O. 349, 25t>. 349. 250, 39 

2. 500. 440, 500, 349. 730. 523. 250. 466. 500. 44 

5760 DATA 250. 440. 30O. 466. 230. 52 ". . L-L:>. 4.5 

6, 230. 440. 250.466. 500. 523 

5770 DATA 250.392,250,349.250,392,230,44 

5780 DATA 500. 262. 300. 349. 230. 34 -t . 25". *9 
2.300.440.300.349. ra0,323.250, - 

5790 DATa 250,440,300,466.250,3; 

. :-t9 

3B00 DATA 3844444C44a«44.3844444e4444T8. 



38444040404438, 30484444444B30. 3C4O4O4B40 

4:> SC . ?C404048404040 

5B10 DATA 3S44404B44443S,4444444[:444444, 

1000 10 IO lOl OlO. 040004040444 3B. 4448404040 

4844, 4040404040443B 

5820 DATA 444C4C44444444. 446464444C4C44 . 

3B444444444438. 3B444448404040, 3.844444444 

4B34, 3844444B404844 

3830 DATA 3B44400B04443B, 7C1O1O1010101O, 

44444444444438.44444420201010.4444444450 

302B, 4444201 0204444 

5840 DATA 44442010 1 01 010, 780408 1020403C 
5850 REM *•<•■■ ••<■■• ■•«»•• 

5B60 RESTORE 5730 

5B70 FOR K»I TO IB 

SBBO READ A, B 

5B90 CALL SOUND<A*2.E 

5900 NEXT K 

5910 RETURN 

5920 RESTORE 5750 

5930 FOR 1=1 TO 37 

5940 READ A. B 

5950 CALL SOUNDiA.&.C 

3960 NEXT 1 

5970 RETURN 



.5.6/2. 10.6*3. 10 
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POKEL PLUS 



L'ordinateur avec bonheur 
Complet de jeu de cartes a cree 
Pour le grand plaisir du joueur 
Le graphisme il aura soigne 

Daniel MASSEBOEUF 
SUITE DUN 77 

133 PL0TX+31,Y-76.3,2,2tPL0TX»34,Y-76.B,2, li PLOTX* 
ll.Y-77, 12,2. 1jPL0TX + 2^.Y-78. 1.1, 1 1 PLOTX+24, V-77. 2. 1 
.2: PLOTX +24. Y-78, 10, 2, 2: PLOTX *34 , Y-78, 7,2. It PLOTX* 12 
, V-79, 12,2, 1|PL0TX+I3,V-B1, 11,2, 1 : PLOT X + 24 . V-SO, 9, 3, 




134 PL0TX+33,Y-80,7,3, 1 i PLOTX ■ 
♦24,Y-B3^9. 1.2:PL0TX+33,Y-83,6.: 
1.2:PLDTX*32, Y-84,7, 4. l:PLOTX+i: 
6.Y-B8,9,2, liPL0TX+32,Y-BB,6,5. 



14.Y-B3, 11.3. 1:PL0TX 
. ltPL0TX*25.Y-84.7, 1 
.Y-B6. 10,2,liPLDTX*l 
!PL0TX*17,Y-90,8,2, 1 



135 PL0TX*18.Y-92.7,2, 1 i PLOTX+32, Y-93, 3. 1, 1;PL0TX+ 
19. Y-94. 1.2.0tPLQTX*35,Y-93,3,l,0tPL0TX*32.Y-94.4, 1, 

Oi PLOTX+30, Y-95, 5, 1 . OlPLOTX+36, Y-95, 2, 1 , Oi PLOTX+20, V 
-95, 2, 2, Oi PLOTX+20, Y-94, 5, I, 1 i PLOTX+22, Y-95, 3, 1,1 

136 PL0TX+31,Y~7O,3, 1 , Ot PLOTX+26, Y -72. 5, 1.0 

137 PLOTX+25, Y-95, 5, 1 , *i PLOTX+35, Y-94. 3, 2. 1 1 PLOTX* 
19, Y-96, 1,1, ltPL0TX*20, Y-97,2,2, 1 1 PLOTX *22, Y-98, 3, 1, 
li PLOTX+23, Y-99, 3, 1 , 1 tPL0TX*30, Y-98, 2, 1, 1 t PLOTX+32. Y 
-97, l,l,liPL0TX+33,Y-96,2, 1 , 1 tPLOTX+34, Y-95, 1 , 1, 1 

138 PL0TX+36,Y-94,2,l, 1 t PLOTX+22, Y-96, 11, l.Oi PLOTX 
♦33. Y-96, 3, 1, Ot PLOTX* 19, Y-97,1, 1 ,0t PLOTX+22, Y-97. 10, 
l,0iPL0TX + 33,Y-97,4, 1 ,0iPL0TX + 20, Y-98, 2,2, Oi PLOTX+25 
, Y-98, 5, l,0lPL0TX+32,Y-9B, 3, 1 , Ot PLOTX+22, Y-99, 3, 1,0 

139 PL0TX+30,Y-99,4, 1 , Ol PLOTX+22, Y-100, 10. l.OtPLOT 
X+24.Y-101. 6, l.Oi RETURN 

140 ' ■ DAME ■ 

141 OUTPUT"0",X+2,Y-2,FlX-X*4tY-Y-IOi60SUBEiX=X-4i 
Y-Y+10 

142 PLOTX+22, Y-14, 1 ,4, 2: PLOTX+22, Y-1B, 2, 1 ,2i PLOTX* 
22,Y-19,3,2,2tPL0TX+22,Y-2I,4,2,2iPL0TX+32.Y-20,2, 1, 
2iPL0TX+31 , Y-21,4, 1 , 2i PLDTX+36, Y-21 , 2, 1 , 2l PLOTX+31 . Y 
-22,7,l,2iPL0TX+31,Y-23,6, I , 2iPL0TX+35, Y-24, 1, I , 1 

143 PL0TX*23,Y-23,2, 1 , 2t PLOTX+22, Y-23, 1, 1 , 2t PLOTX* 
22. Y-24, 2, l,2lPL0TX+27, Y-24, 2,1,21 PLOTX+32, Y-24, 3. I, 
2iPL0TX+33,Y-24,l, 1, 1 iPLOTX+36, Y-24,2, 1 ,2tPL0TX*22, Y 
-23,7, 1, 2i PLOTX+32, Y-25, 7, 1 , 2i PLOTX+22, Y-26, 6, 2, 2 

144 PLUTX+33, Y-26,6, 1 ,2t PLOTX+30, Y-27,8, 1,2) PLOTX + 
22,Y-2B,12,2,2tPL0TX*35,Y-28,3,l,2iPL0TX+23,Y-30,ll. 
1.2iPL0TX+37,Y-30,2, l,2t PLOTX+24, Y-31 , 13, 1, 2iPL0TX+4 
1. Y-31, 2, l,2t PLOTX+23, Y-32, 13, 1 . 2iPL0TX*41 , Y-32,3, 1 , 
2 

145 PL0TX+27,Y-33,11, 1 ,2iPL0TX*40, Y-33, 6, 1, 2i PLOTX 
+29, Y-34, 10, 1, 2iPL0TX+40, Y-34, 3, t , 2i PLOTX+30, Y-33, 1 1 
, 1, 2i PLOTX+32, Y-36, 8, 1, 2iPL0TX+ 18, Y-30, 4, l,2iPL0TX+2 
2,Y-30,l,l,0tPL0TX+16,Y-31,l,l,2i PLOTX+17. Y-31, 6, 1,2 

146 PLOTX+23, Y-31 , 1 , 1 , Ol PLDTX+24, Y-32, 1 , 1 , Oi PLOTX+ 
24, Y-33, 3, 1,0 

147 PL0TX+33,Y-31,l,l,0iPL0TX+15,Y-32,l,l,0»PL0TX+ 
16, Y-32, I, l,3t PLOTX* 17, Y-32, 7, 1 ,2l PLOTX+24, Y-32, 1, 1 , 
0iPL0TX + 14, Y-33, 1, 3, OlPLOTX + 13, Y-33, 2 1 2,3t^ PLOTX* 17, 
-33,7, 1, Zl PLOTX* 1 7, Y-34. 6, 



,2iPL0TX+23,Y-34, 1, 



14B PLOTX+24, Y-34, 3, 1 . 2 I PL0TX*27, Y-34, 2, 1, It PLOTX* 
13,Y-35,3, l,3i PLOTX* 18, Y-33, 4, 1 , 2i PLOTX+22, Y-35, 1,1, 
Ol PLOTX+23, Y-33, 3, 1 ,2t PLOTX+28, Y-33. 2, 1 , 1 t PLOTX* 13, Y 
-36, 1.3,0iPLOTX+14,Y-36,3, 1 , 3i PLOTX+ 19, Y-36, 2. 1 , 2 

149 PL0TX+21.Y-36, 1, 1 , Ot PLOTX*22 , Y-36, 6, 1,2:PL0TX+ 
28, Y-36. 4, 1, ltPL0TX*14.Y-37,7,2,3iPL0TX*2l,Y-37,8,2, 
2iPL0TX*29,Y-37,6.2.1tPL0TX*14.Y-38, I. l,3i PL0TX*l3, Y 
-3B,3, l,0tPL0TX+lB,Y-3B,2, 1 , 3. PLOTX+20, Y-3B.9, 2, 2 

150 PL0TX+20,Y-39,9,2,2 

131 PLOTX + 30, Y-39, 3,1. 1 1 PL0TX*29, Y-3B, 1 , 3, UPL0TX + 
30,Y-40,6,2,llPL0TX+12.Y-41, 1 , 2, 0: PL0TX*21 . Y-4 1 . 8, 1. 
2lPL0TX*l3,Y-42,l, 1 , 3t PLOTX* 14, Y-42 , 1 , 3, Ol PLOTX* 15, Y 
-42,7,I,3tPL0TX*22,Y-42.7.1,2.PL0TX+29.Y-42,2,3.3 

152 PL0TX*29,Y-42,2,3.3iPL0TX+3l,Y-42,5.3, 1: PLOTX* 
ll.Y-43, l,3,0iPLOTX+12,Y-43,2,2,3iPL0TX+15.Y-43,l, 1, 
Ot PLOTX* 16. Y-43.B, 1 , 3i PLOTX*24 , Y-43, 3, 9, 2l PLOTX* 13 , Y 
-44,9, 1,3iPL0TX + 12, Y-45, 12, 1 , 3: PLOTX* 10, Y-46, 1,3,0 

153 PL0TX+U,Y-46,13,3.3tPL0TX + 29.Y~45,3,B,3:PL0TX 
*32,Y-43,4,2. liPL0TX*32.Y-47.5,5. 1 1 PLOTX* I I , Y-49, 3, 1 
. Oi PLOTX* 14, Y-49, 10, 2, 3: PLOTX* 12, Y-31 , t , 2, Ot PLOTX* 13 
, Y-31, 10. l,3sPL0TX+13,Y-52,4, 1 , Oi PLOTX. 1 7 , Y-52, 7, 1,3 

154 PL0TX*13,Y-30, 1,1,0 

155 PL0TX*24.Y-52.4,3.2iPL0TX+2B,Y-52,5,3,3iPL0TX+ 
33,Y-52,4,3,liPLDTX+37,Y-53,l,2, I t PLOTX* 13, Y-53, 1,3, 
Ot PLOTX* 12, Y-36, 1 ,2,0 |PL0TX*24, Y-35, 3,5,2 t PL0TX*3O,Y 
-56, 1,2. ltPL0TX+33,Y-55,6,2, 1 1 PLQTX + 33, Y-37, 7, 3, 1 

156 PL0TX+13,Y-S8.1,2,0iPL0TX+20,Y-58, 1, l.OiPLOTx* 
IB, Y-59, 2, 1.0iPL0TX*14,Y-60, 4.1,0i PLOTX+25, Y-60, 2, 1, 
2iPL0TX*33.Y-60,8, 1, 1 t PLOTX* IB, Y-39, 1 , 10, Oi PLOTX+25. 
Y-61,l,2,0lPL0TX+30,Y-62.2, I, 1 i PLOTX+34, Y-61 , 7, I , 1 

137 PLOTX+34. Y-62, 8, 2, 1 t PLOTX+24, Y-63, 1, l,OlPLOTX+ 
30.Y-63, 1,1. UPL0TX+23.Y-64.2, 1 , Oi PLOTX+28, Y-64, 2, 1, 
llPL0TX*34,Y-64,9.2, 1 I PLOTX + 23, Y-65, 1 , 3, Oi PL0TX*22. Y 
-67,2,l,0tPL0TX+2B,Y-65,2, 1, 1 

138 PLOTX+28, Y-66,1, 1 , 1 tPLOTX+34, Y-66, 10, 1, It PLOTX 
+34.Y-67, 11,1, IiPLOTX+20, Y-68,2, 1 , Ot PLOTX+17, Y-69,5, 
1. Ot PLOTX+26, Y-69, 2,1, 1 I PLOTX+34, Y-68, 12,2, 1 t PLOTX*! 

3,Y-70,6,2,0tPL0TX+13,Y-72.e, 1 ,0t PLOTX* 13, Y-72, 7, 2,0 

159 PL0TX*26,Y-70, 1,1, 1 1 PL0TX*34, Y-70, 1 1 , 1 , It PLOTX 
*43, Y-70, 2, l,2l PLOTX+34, Y-7 1,9, 1 , 1 t PLOTX+43, Y-71 ,4, 1 
,2i PLOTX+34, Y-72, 8, 1, 1 tPLOTX+42, Y-72, 4, I , 2i PLOTX+23, 
Y-73,1, 1,1 1 PLOTX+24, Y-74, 2, 1, 1 iPLOTX + 12, Y-73,8,2,0 

160 PLOTX + 34, Y-73, 7, 1, 1 1 PLOTX + 4 1 , Y-73, 4, l,2tPL0TX + 
12. Y-74, B, l.Oi PLOTX+34, Y-74, 6, 1 , 1 1 PL0TX*34, Y-74,6, 1, 
llPL0TX*ll,Y-75,B,3,0tPL0TX*34,Y-75,5, 1, ltPL0TX+39,Y 
-75,4, 1,2 l PLOTX *34, Y-76,4, 1. 1 t PL0TX*3B, Y-76, 4, 1,2 

161 PL0TX*12,Y-74,8, 1 ,0lPL0TX*40, Y-74, 4, 1,2 

162 PL0TX*10,Y-78,9,2,0tPL0TX+22,Y-77,2, 1, 1. PLOTX* 
22,Y-7B,l,l,l 1 PLQTX*34,Y-77,3,2,ltPL0T)lt37,Y-77,4,2, 
2l PLOTX+28. Y-79. 6.1.31 PLOTX+34. Y-79. 2.1. liPL0TX+36.Y 



HEX-CHECK 



APPLE 




Maintenant vous n'aurez plus d'excuses (NDTA : I'HH- 
HEBDO non plus) si votre programme ne tourne pas, 
car celui-ci vous aidera a comparer votre listing et celui 
de votre journal prefere. (NDTA : Nous lutiliserons cha- 
que semaine et tout programme hexadecimal sera ac- 
compagne de son Hex-Check, votre travail de remain 
etant desormais divise par huit ! Merci qui ?) 
Attention, HEX-CHECK ne verifie que les programmes 
hexadecimaux, d'ou le nom. 
B AS-CHECK arrive, patientez un peu.. 

Jean-Christophe MEULIN 



Mode demploi : 

Ce programme a la particulate de pouvoir demarrer n'lmporte oO et 
fonctionne sous DOS 3 3 et PRODOS II n'efface done pas le pro- 
gramme que vous desirez verifier. 

Si vous possedez un assembteur tapez le listing 1 . slnon tapez le 
listing 2. 



Une fois entre, tapez BSAVE HEX-CHECK.AS 4000, L$ 7D 
Pour le faire marcher, chargez votre programme, et tapez BRUN 
HEX-CHECK, L'adresse de demanage par defaut est $ 4000 Si le 
programme que vous desirez verifier se trouve aussl en $ 4000, 
donnez une adresse de demarrage ditferente a HEX-CHECK en tal- 
sant par exemple BRUN HEX-CHECK, A$ 300. Surtout pas $ 00 $ 
100.$ 200$ 400 a $ 700 el $ 90O0 et au-dessus Ensulle. passez 
en mode moniteur (CALL -151). 

Si votre programme va de $ 4000 a $ 5F38, tapez 4000.5F38 suivi 
de CTRL-Y (touche Control appuyee ainsi que la louche Y) puis 
RETURN Ce que vous voyez apparaitre sont les adresses du pro- 
gramme de 8 en 8 suivies dun nombre hexadecimal entre parenthe- 
ses. Ce listing doit corresponds exactement au listing du journal Le 
plus simple est d essayer pour bien comprendre le fonclionnemenl. 
Pour finir. il exisle deux modes de defilement 
-Le mode Step qui tail defiler le listing pas a pas. 
-Le mode Trace qui fait defiler le listing jusqua l'adresse finale. 
Le premier mode sobtient en mettant $ FF a ladresse 00 (00 :FF 
dans le moniteur ou Poke 0.255 en Basic) et le deuxieme en y met- 
tant 00. 

On peut tou|ours sorttr de Hex Check en tapant sur la touche Es- 
cape. 

Les adresses de debut et de fin de programme seront toulours don- 
nees avec HEX-CHECK 



ORG ,4000 



18 

iv ADR 

20 

21 ENTRY 

22 

23 CALC 

24 



5 ESCAPE 

4 AIL 

7 PTR 

8 MODE 

9 STACk 

10 CTRY 

11 PRBLk 

12 COUT 

13 PR8YTE 

14 PRA1 

15 NEXT 
IX RETURN 
17 



*9B 
«3C 
♦FF 

«00 28 

,100 29 

♦3F8 30 

♦F94A 31 

♦FDED 32 

♦FDDA 33 

♦FD92 34 

«FCBA 35 

♦FF58 34 PROG 
37 



27 



JSR 
CLV 

sue 

LDA 
BEC 
TSX 

hex 

CLC 
LOA 
ADC 
STA 
I NX 
LOA 
ADC 
STA 
LDA 
STA 
RTS 
CLC 

ecc 



CACC 
(.00 
PROG 



STACK, X 

EENTRY-ADR+1 

CTRY<1 

STACk ,X 

£*00 

CTRY»2 

f«4C 

CTRY 



45 

44 DATA 



51 

52 CHECK 

53 



LDA 
WD 
8NE 

LDA 

ecu 

JSR 
LOA 
STA 
LDA 
EOR 
STA 
JSR 
BCC 
LDA 
pm 
LDX 
JSR 
LDA 
JSR 
LDA 



AIL 

(♦07 

DATA 

I*', i 

CHECk 

PRA1 

£«00 

PTR 



(AID.Y 44 

PTR 47 

PTR 48 

NEXT 49 

M0D8 70 

(♦FF 71 



f«02 

PRBLK 

£'<" 

COUT 

(••■ 



72 CONT 
73 



JSR 

LDA 
JSR 
LDA 
JSR 
LDA 
CMP 
BED 
PLA 
BEQ 
PW 
PLA 
BIT 
RTS 
BIT 
BPL 
BIT 
BIT 
BPL 
BM! 



coirr 

PTR 

PRBYTE 

£■)• 

cour 
♦cooo 

fESCAPE 
FIN 

CONT 



♦ C010 

MODE 
DEBUT 

• CO 10 
,C000 
KEY 
DEBUT < 



-79,4, I, 2i PLOTX* 10, V-BO, 10, 2, Oi PLOT * *34, Y-BO, I, 1, 1 

143 PL0TX*33, V-80,4, 1 . 2i PLOTX+34, Y-81 . 4, 1 , 2: PLOT: 
10, Y-B2, 12, l.Oi PLOTX+23, Y-e2,B, 1 , 3t PLOTX+33, Y-B2, 4 
, 2l PLOTX* 10.V-B3, 13, 2,Oi PLOTX+23, V-B3, 9, l,3lPL0TX+: 
.Y-83.4, 1,2:PL0TX*31,Y-B4,4.2.2:PL0TX*10,Y-B3. 12, 1.0 

144 PLOTX+28, V-8B, 4, 1 , 2l PLOTX+27, Y-B9 , 4 , 1,2 

145 PL0TX+10.Y-84, 11, 1 , Oi PLOTX+30, V-84. 4, 1, 2 t PLOTX 
*10,Y-B7, 10,2.0:PL0TX+29,Y-B7,4, 1 , 2: PLQTX+ IB, Y-BB, 4 , 
l,2iPL0TX+ll.Y-B9.8.2,0lPL0TX+19,Y-B9,B, l,2l PLOTX+27 
. Y-89,4,2,2!PL0TX+19.Y-90,7, 1 , 2 I PLOTX+24. Y-90, 4, 1 ,2 

144 PL0TX+1I,Y-91,9, 1 , Ot PLOTX+20. Y-91 , 3, 1,2s PLOTX 
25.Y-91.4, 1.2IPL0TX+12.Y-92, 10, 3, Ot PLOTX+22, Y-93, 1,2 
,0l PLOTX + 22, Y-92,2. 1 , 2l PLOT X + 24 . Y-92, 4, 1 ,2l PLOTX+23, 
Y-93, 4, 2, 2l PLOTX+27, Y-93, l,1.2iPL0TX+ 13, Y-93, 9, 1,0 

147 PLOTX+22, Y-93, 3, 1 , 2t PLOTX+ 1 4, Y-94, 7 . 2, Oi PLOTX+ 
21, Y-94, 3, 1.2IPL0TX+21.Y-97.4, 1 , 2l PLOTX+ 15, Y-98, 3, 2, 
0|PL0TX+20,Y-98,4,2,2|PL0TX+14,Y-100,4, 1 , Ol PLOTX+ 19, 
Y- 100. 4. 1 . 2|PL0TX+14. Y-101.2. I , Ol PLOTX+ IB, Y- 101 , 4, 



148 PLOTX 



17. 



102.4, 1.2lPL0TX+18,Y-103,2,2,2lRETU 



RN 

149 * t not I 

170 OUTPUT , 'R- 1 ,X+2,Y-2,F:X.X + 4i Y-Y-lOiGOSUeElX-X- 
Y-Y+10 

171 PLOTX+23. Y-18. 1. 1 , 2i PLOTX+23, V- 19, 3, l,2tPL0TX+ 
24,9-20,3, 1.2lPL0TX + 22,Y-21,7, 1,2|PL0TX- — 
1 lPLOTX+21 , Y-22,9, 1 , 2t PLOTX+24, Y-22, 3, 1 , 1 lPLOTX+17, Y 
-23, 2, 2, 2l PLOTX+20, Y-23, 1 1, 1 , 2l PLOTX+24, Y-23, 3, 1, 1 

172 PLOTX+32, Y-23, 2, 2, 2lPL0TX+39, Y-23, 2, l,2iPL0TX+ 
22, Y-24, 7, l,2i PLOTX+25, Y-24, I, 1, 1 t PLOTX+39, Y-24, 3, 1 , 
2lPL0TX+18,Y-25, 1 , 1 , 2i PLOTX+24. Y-23, 3, 2, 2l PLOTX+32, Y 
-23, 1, l,2lPL0TX+37,Y-23,3.1,2lPL0TX+31,Y-24,2, 1,2 

173 PL0TX+17,Y-24,3,2,2lPL0TX+20,Y-27,l, l,2l PLOTX* 
23,Y-27,5, 1.2IPL0TX+37, Y-24, 4, l,2t PLOTX+30, Y-27, 4,1, 
2i PL0TX+3B, Y-27, 2, 1 , 2i PLOTX+ 1 1 , Y-28, 2, 2, 2l PLOTX+ 14, Y 
-28, 18, I,2lPL0TX+37,Y-28,2,2,2lPL0TX+13,Y-29,20, 1,2 

174 PL0TX+12,Y-30,24,l,2lPL0TX+13,Y-31,24,2,2lPL0T 
X+15,Y-33,20,2,2lPLaTX+14,Y-35,4, 1 , 2i PL0TX*30, Y-35, 4 
, l,2iP1_0TX*14,Y-3A,2, 1 , 2l PLOTX+32, Y-34, 2, I , 2: PLOTX+2 
O.V-35, 10, l,2i PLOTX* 14, Y-37, 2, 7, Oi PLOTX* 18, Y-34, 14,1 
9,3 

173 PL0TX*32,Y-49, 1,3, Oi P1_0TX+19, Y-33, 3, 1 , 3i PLOTX* 
28, Y-35. 4, 1 , 3l PLOTX+29, Y-54, 2, 1 , 3t PLOTX+20, Y-40, 5,1, 
Ol PLOTX + 24, Y-40, 3, 1 , Ol Pt.OTX+24, Y-40, 1 , 10, Ol PLOTX+1 4, 
Y-30,2, l.Oi PLOTX+17, Y-31, 1,4,01 PLOTX+23, Y-53, 3, 1,0 

174 PLOTX+22, Y-55, 4, 1 , Oi PLOTX+20, Y-54, 2, 1 , Oi PLOTX* 
28, Y-54, 2, 1 , Oi Pt.OTX+30, Y-37, 1 , 1 , Ol PLOTX+22, Y-43, 1,1, 
Ol PLOTX+29, Y-43, 1,1, Ol PLOTX+21 , Y-44, 3, l.Oi PLOTX+28, Y 
-44,3, 1,01 PLOTX+22, Y-43, 1. 1 , Ol PLOTX+29, Y-43, 
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(l)-AU>K,o« se FAiT UH CAtifi ? 



H,x-Ch,cK listing 2 



D,but:4000 Fin:407D 



4000- 
4008- 
4010- 
4018- 
4020- 
4028- 
4030- 
4038- 
4040- 
4048- 
4050- 
4058- 
4040- 
4048- 
4070- 
4078- 



20 58 
FO 1A 
49 04 
01 49 

80 F8 
3C 29 
14 20 

81 3C 
FC 90 
20 4A 
A9 A4 
DA FD 
00 CO 
04 48 
00 10 
CO 10 



FF B8 
BA CA 
80 F9 
00 8D 
03 40 
07 00 
92 FD 
45 FF 
E4 A9 
F9 A9 
20 ED 
A9 A9 
C9 9B 
48 2C 
BE 2C 
FB 30 



50 04 A9 00 
18 80 00 01 
03 E8 BD 00 
FA 03 A9 4C 
18 90 OA A5 
OB A9 00 FO 
A9 00 85 FF 
85 FF 20 BA 
FF 48 A2 02 
A8 20 ED FD 
FD A5 FF 20 
20 ED FD AD 
FO 04 48 FO 
10 CO 40 24 
10 CO 2C 00 
B4 00 



4000- 
4008- 



<«C2) 
(»3E) 



4010- <«4F> 
4018- (»F9> 



4020- 
4028- 
4030- 
4038- 
4040- 
4048- 
4050- 
4058- 



<«31> 
(,901 
(•881 
<»D7> 
(♦34) 
(♦A2) 
(♦47) 
(♦BA) 



4040- (♦FE) 
4046- (♦9E) 



4070- 
4078- 



(♦7E) 
(♦AF) 



22 



SAFARI 



^W^ 



TI99 BASIC 

PC? 




ETENDU 



La Jungle, chez vous, et sans risque ! 



20'* SAFARI • 
30 ■• LAURENT ESCOFFIER 84 • 
40 '* TI-99/4A BASIC ETENDU* 



SAN£ RiSQUE,itS 




60 GOSUB 1090 

70 PT=0 :: TA- 1 :: Tl=3 :: KO-15 n RC-2 

II ANT-3 :i FP-2 :: C-7 :t VIE-3 :i B-4 
B i: 0-52 ii 1=96 ll X-23 ll Y-167 ■: NA 
=■10 
80 CALL CLEAR :i CALL 5CREEN<12>lt PRINT 

TAB(9)t"5 AFAR I": : ll PRINT TAB<4> 
I "LAURENT ESCOFFIER 19B4": : i i 
90 PRINT "DEPLACEMENT MAUT i TOUCHE E " i 
l PRINT "DEPLACEMENT BAS i TOUCHE X" :: 

PRINT "BANDAGE DE L - ARC i TOUCHE K" :: 
PRINT "TIR : TOUCHE L " : : 

100 PRINT " CONDITIONS MORTELLES 

POUR L* ARCHER:"! : 

110 PRINT "-COLLISION-AVEC UN ANIMAL.": 

: it PRINT "-PRESENCE DE L ' ARCHER SOUS 

UN ANIMAL.": : i: PRINT "-CASSEP- SON AR 
C 2 FOIS.": : 

120 IF K0=1B THEN PRINT "-PRESENCE DE L' 
ARCHER SUR UN ANIMAL.": I. : 
130 GOSUB 2170 it FOR T-l TO ISOO n NEX 
T T 

140 X-23 t: CALL CLEAR || CALL DELSPRITE 
(ALL):: CALL SCREEN ( 4 >: : CALL MABNIFY(3) 
:: CALL CHARSET i: RANDOMIZE 
150 PRINT TAB(7) I " TABLEAUX " I TAl "ET" I TA+I 
t : : : :: PRINT TAB (7) ; "BONUS ET MALUSt 
": : : :: PRINT "ANIMAL TUE I ♦"tANTi"PO 
I NTS. ": a 
160 PRINT "FLECHE PERDUE : - " 1 FPI "POINTa 

. ": i : ii PRINT "VOUS dispose; DE"IVIE| 
"VIEIS)" :: PRINT "ET DE"I RCl ■ ARC <S> . "I 

170 PRINT TAB<9)i "5CDRE-" iPTi I I it GOS 

UB 2170 ji FOR T-l TO 9O0 ■■ NEXT T ii C 

ALL CLEAR 

190 ■ DEFINITION CARACTERES 

1 90 A»- " 00OOOEOFOEO6 1 F 1 F 1 FOEOEOE3B20E0E0 

" I I B«-"0S0402O20202B2FEC202O2O2B2B4EBE 

0" t i C«-"OOOB060I010181FFC1010101B1B6EB 

EO" 

200 Dt= "00O00EOF0E06 1 F 1 F 1 FOEOEOE 1 B 1 1 7 1 7 1 

" ; : E*-"00001C020101B1FFC1010101021CCOC 

0" :: F«="0000201C0201B1FFC101021C2«OOCO 

CO" 



220 CALL CHAR(96,A*fcB») i : CALL CHAR (100. 

A«fcC*)tt CALL CHAR! 104. D»*.E») :: CALL CHA 

R l lOS.D.&F.) :: CALL CHAR { 1 12.D»S-G») : : CA 

LL CHAR( 116,D«S.H«) 

230 CALL CHAR(36,"O0403OlC070O7973761C3C 

6FC763300000020C3BE0B4843C70E0FCFEF6C203 

00") 'ARCHER TOUCHE 

240 CALL CHAR (12*. "0OOQOQQQO00uB07FBQaG0 

OOOOOOOOOOOOOOOOOOOOOOOOBFCOBOOOOOOOOOOO 

OOO") 'FLECHE 1 

2S0 CALL CHAR<33, "40CO20100SO40201 ") : i C 

ALL CHAR(12O."OOOOOB243O4A2400"> 'FLECHES 

2*3 
260 CALL CHAR(40, "0F3F7F7FFFFFFFFBF3EBA7 
23030 3071FFOFCFEFEDFBFFFFFB7A7B3848080CO 
EO") 'ARBRE 

270 CALL CHAR(44,"O000BO42495lS555") ! HER 
BE 

2B0 IF HN THEN MN-0 :: RETURN 
290 ■ ANIMAUX 

300 CALL CHAR(4B, "548B302070F03B3F3F3F 1 F 
1F7OSO9O00000OO00OO0O0OOF6FEFCFCFC 1 8 1 C 1 4 
22") ■ CERF1 

310 CALL CHAR<52. "548B502070FO3B3F3F1F IF 
3F5O488804000000000000O0FBFCFEFCFC 1 BOC 1 4 
22") ' CERF2 

320 CALL CHAR(56,"00071B1F0703031F3F3307 
O600000O00O000B0B0COE0FBFBFCFEFEFE7E3C7C 
F8") ' 0URB1 

330 CALL CHAR(60. "000O0O1C6E7F1F0F0F7FF* 
CFODOCO 1 0300O0OOO000OOC0FOFOF6FBF 8F8F CFC 
DC") ' 0URS2 
340 CALL CHAR(64."0O0O0030784C0404040C0B 



0B0B0C0603"*.RPT*("0",26>*. "1C72C1" 

ENT1 

330 CALL CHAR(6B,"0000OO00307e4C0404040C 

081810180F00O00O0O0OO00O1OO8O404CI404OC78 

CO") ' SERPENT2 

360 CALL CHAR(72. "0000183F2F7F7F5FF74747 

474E4E1F0700O0F8FCFCFEFEFFFFFFFFFE1E1COE 

OE") ' ELEPHANT 1 

370 CALL CHAR (76, "00001B3F2F7F7F5FF7474 7 

57660606060000F8FCFCFEFEFFFFFFFFFF 1 EOE I F 

OF") ' ELEPHANT2 

3BO CALL CHAR(BO, "30701010101B1C0F0F0702 

06040406000000 10492A7EFCFCF8F0406020 2030 

60") • AUTRUCHE1 

390 CALL CHAR(84, "3070101010IB1C0F0F0702 

03010 1 1 03O0O0 I 02 1 2A7AFEFCFCF8406030 1 098 

00") ■ AUTRUCHE2 

400 CALL CHAR(88. "OOOO0OO04OSOA7AFF7FF3F 

0303030706000000000000 3CFEFFFFFFFFFE0COC 

OC") • CHI NO 1 

410 CALL CHAR(92, "000O0O004080A7AFF7FF3F 

0303030301 0000000000003CFEFFFFFFFFFE06BE 

BC") • RHIN02 

420 IF TOU-l THEN 1270 ELSE CALL COLOR ( 1 

2,9.1):: Y-167 ji 1=96 

430 ' DECORS 

440 Bl-30 :: B2-12 

450 CALL C0L0R(2, 13, 1) : : CALL COLOR <1.S, 

I):! FDR H-l TO Bl tt CALL HCHAR ( INT (RND 

•12)»2+1, INT(RND*14) *2+ 1,44. INT (RNB*2) * 1 

);: NEXT H 

460 FOR A-l TO B2 :: CO-INT (RND* 14 > »2+4 

:: LI=INT(RND«10)»2+2 

470 CALL HCHAR(LI,C0,40H i CALL HCHAR (L I 

• 1 , CO. 41 ) i i CALL HCHAR (LI. CO* 1 .42) : : CAL 

L HCHAR(LI*l.CO+l,43).-i NEXT A 

4B0 IF SU THEN SU-=0 l : RETURN 

490 ' BOUCLE PRINCIPALE 

500 RANDOMIZE :: DIM M(12)n FOR H-3 TO 

12 ii M(H» — (INT(RND*4)+2)ti NEXT H ii T 

U-3 ll BF-9 

510 CALL SPRITE(»TU,B.C,GF,241,0,M<TU)1 

1TC0 TU-TU+1 it GF-GF+16 :: IF TU<>13 THE 

N^TSIO 

330 CALL SPRITE <»1. I.2.Y.X) 

540 GOSUB 820 

550 FOR W-3 TO 12 it CALL COINC (« 1 . ttW. KO 

,C)II IF C THEN 620 

560 NEXT W 

570 CALL KEY(O.K.S) 

3B0 IF K-69 THEN 660 

590 IF K-8B THEN 690 

600 IF K-75 THEN 720 

610 IF K-76 THEN 750 ELSE 540 

620 CALL PATTERN («1.36) : : CALL SOUNDdS. 

1000. 4):t CALL SOUND( 15.2000.2) 

630 FOR P=0 TO 30 STEP 2 : i CALL SOUND I 1 

0,900,P,-5,P) : i CALL SOUND (10. 20O0.P.-6. 

P):: NEXT P 

640 VIE=VIE-1 :: IF UIEOO THEN 530 ELSE 

2200 
650 ' DEPLACEMENT HAUT 

660 IF Y<>7 THEN Y-Y-16 :: CALL SOUND (30 
.290.4) 
670 GDTO 530 
600 ' DEPLACEMENT BAS 

690 IF Y<>167 THEN Y-Y+16 it CALL SOUND I 
30. 310,4) 
700 GOTO 530 
710 ' BANDAGE ARC 

720 1=1+4 :: CALL PATTERN (•!, I ): : IF I 
116 THEN CALL SOUND (40. -3. 5) J : GOTO 530 
730 CALL SOUND (50,110,0.-7,0)11 FOR T-l 
TO 100 t: NEXT T :: RC=RC-1 : .- IF RCOO 
THEN 1=96 :; GOTO 530 ELSE 2200 
740 ! LANCEMENT FLECHE 

730 V=( 1 -92) »3.29 :: 1=96 ■: CALL SOUND ( 
20.-6.4):: CALL PATTERN I Kl . I > : i CALL SFR 
1TEOI2. 124.5. V, X+12,3, V) : l FOR T-l TO 13 

: ; NEXT T 
760 FOR E=l TO 20 

770 CALL COINC(ALL.C): : IF C THEN 860 
780 NEXT E 

■'." i hi i PDSIT10N(*2.Y2,X2>|| IF Y2 =Y-4 
THEN CALL DELSF'RI TE ( «2> ELSE 790 
800 LALL S0UND(20.7OO.4) i : CALL HCHAR (IN 
T (V2/B)»l. INT IX2/B>*2. 33) : : PT=PT-FP : : 



BIO • MOUVEMENT ANIMAUX 
BIO IF F THEN 840 

B30 FOR G=3 TO 12 :: CALL PAT TERN 14G.0) t 
: NEXT G ; : F=l : : RETURN 

840 FOR 6=3 TO 12 :: CALL PATTERN I »G. 8 > : 
: NEXT G :: F=0 ii RETURN 
B50 ' ANIMAL TOUCHE 

B60 CALL S0UND(20.600.4) : : CALL MOTIDNt* 
2,0,-2) 

B70 A=1EB t: FOR 0=3 TO 12 :: CALL DISTA 
NCE (N0.*2.U) 

380 IF W'A THEN A=W :: L-0 
B90 NEXT 

900 CALL MDTIONlltL.0.0):: CALL POSITION ( 
4L.YY. XX) t : CALL HCHAR ( INT ( YY/B) +2. INT(X 
X/8)+2.120) 

910 FOR T=l TO 10 it CALL COLOR <«L . 1 0. »L 
,5):: NEXT T ;| CALL DEL5PRITE ( HL. tt2> 1 1 
NA=NA-1 :: FT-PT+ANT 

920 IF NA THEN 540 ELSE NA=10 :i B-B+ 
B :: 0=0*8 :: CALL CLEAR 

9-0 TA-TA+1 :: FP=FP+1 :: ANT=ANT+1 :: I 
F B-8B THEN B=4B :: 0=52 
940 IF TA*2 OR TA-14 THEN C-lfe :: GOTO 4 



950 IF TA=3 OR TA= 
C-6 :: GOTO 140 
960. IF TA-4 OR TA= 



5 THEN GOSUB 1820 



THEN C=15 



970 IF TA=5 OR TA= 1 7 THEN GOSUB 1470 :t 

C=9 : t GOTO 1 40 

980 IF TA=6 OR TA=1B THEN C-2 :: GOTO 45 

O 

990 IF TA=7 OR TA=19 THEN GOSUB 1820 :! 

C-14 :j KD-1B :t CALL CLEAR :: CALL DELS 

PRITEIALL):: CALL CHARSET :: GOTD lOO 

100O IF TA-B OR TA-20 THEN C=2 :: GOTO 4 
50 

1010 IF TA-9 OR TA=21 THEN GOSUB 1470 :: 
C-3 It GOTO 140 

1020 IT TA=10 OR TA=22 THEN C-9 tt GOTO 
450 

1030 IF TA-11 OR TA-23 THEN BOSUB 1820 t 

: C-14 :: GOTO 140 

1040 IF TA=12 OR TA=24 THEN C-15 t: SOTO 
4S0 

1050 IF TA-13 THEN C=7 t: GOTO 450 ELSE 
PRINT "DUEL CHASSEUR VOUS FAITES ' MAIS 
QUEL GACHIS '" : : GOSUB 2170 :: GOSUB 21 
70 : : GOTO 2200 

1060 ! *•**•**••**•**■*•**»»*• 

1070 ! » PRESENT AT I ON • 

1080 •*•••«•*•»•*»••*•»•»••» 

1090 CALL CLEAR :t CALL SCREEN<2)t: CALL 
MAGNIFY (4> t i FR=400 

1100 CALL CHAR(96. "3F7BFFDCFBFCDF763F0O0 
0007FDB7FOOFF6DFF000O00FFDBFF00O0OOFF6DF 
FOO") 

1110 CALL CHAR < I 00. "FFB6FF000000FF6DFF00 

000OFFB6FF00FEDBFE0O0000FCBEF73F1B3FF7BE 

FCOO") 

1120 CALL CHAR(104.-0000000103070D1F1B3F 

347C6SFBF00007 1 D77DC7OCO80OOFFFF " ) 

1130 CALL CHAR(10B,-E0B8EE3B0E030100FFFF 

00000000000000000080COE OBOF BDBFC 2C3E 1 6 1 F 

OFOO") 

II40 CALL CHAR(U2. "3F7BDFFBB0FBFFB6FFF8 

B0Fi:lF0El0F0OOFF6DFF000O0OFFDBFF' , ) 

1130 CALL CHAR(116. "FFB6FF000000FF6DFF00 

OOOOOOOOOOOOFEDBFEOOOOOOOOBOO" ) 

1160 CALL CHAR(120,"7FEDFFBCF8FCBFF6FFBC 

FBEBFBB8FBFBFFB6FF00O000FFDBFF" ) 

1170 CALL CHAR024. "FFDBFFOOOOOOFF7DEFFE 

771F0E03O100E07BEE3F0D3FF7BEF80OOOC0E0F8 

DC7F") 

1180 CALL CHAR(36.RPT*("0".34>&"1F1D0707 

0507070507070507071 DIF") 

1190 CALL CHAR(4O."00FBB8E0EOAOEOE0AOEOE 



0A0E0E0BBF8"1.RPT» ( 



. 52 ) 



120O 


P=>I : 


1=96 


i i GOSUB 1 350 


1210 


P=3 : 


1-104 


- : : 


GOSUB 


1330 


I -'20 


P=5 : 


1-1 12 


6 t t 


GOSUB 


13S0 


I 3 SO 


P-7 t 


1 = 104 



S-2 



100 



8 ; : GOSUB 1350 

1240 P=9 ii 1-120 tt X-129 M S-10 ii 

124 : : GOSUB 1330 

1250 ill tt 1-36 tt X-161 tl S-12 ■: 

40 :: GOSUB 1350 

1260 TOU-1 ll GOTO 300 

1270 K>48 =: Fl=-4 i: F2--3 :i GOSUB 139 

O ll IF F THEN 1330 

;: Fl— 8 :: F2--7 i: B05UB 139 
O :t IF F THEN 1330 
1290 K=64 :t Fl-900 ii F2— 1 :: GOSUB 13 
70 s: IFF THEN 1330 
1300 K-72 tt Fl-130 t: F2— 3 tt GOSUB 13 
90 it IF F THEN 1330 
1310 K-BO IE Fl"-3 !t F2-900 it OOSUB 13 
90 :; IF F THEN 1330 
1320 t=88 i! Fl— 7 it F2--5 :: GOSUB 139 
O 

1330 CALL DELSPRITE (ALL) t: CALL CHARSET 
: : TOU=0 : i RETURN 
1340 ' SAFARI 

1350 CALL SPRITEIttP. I.9.X. 1 . O. 45. US. J . 9. 
X. 226. 0,-45) 

1360 CALL C0INC(»P.»S.55.C):! IF NOT C T 
HEN CALL S0UND(50,-7.2)t: GDTO 1360 
1370 CALL MOTION<»P.O.O.»S.O.O>! : CALL L 
0CATE(#P.X.97.#S. X. 129) t : CALL SOUNDdOO 
,FR,2)lE FR=FR+80 t: RETURN 
1380 ' PASSAGES D'ANIMAUX 

1390 1=1 :; FOR P=13 TO IB t: RANDOMIZE 
:t C=INT(RND*13)*3 :: CALL SPR ITE I W. K. C 
. 1.256. :■. -19) :: 1 = 1*32 :: NEXT P 
1400 FOR H=l TO 6 :: CALL KEY (O.KE.S) : ] 
IF 500 THEN F=l t: RETURN 
1410 FOR P-I3 TO IB t: CALL PATTERNtdP. v. 
»4):t CALL SOUND ( 10. Fl , 4) i : NEXT P 
1420 FOR P="I3 TO IB t: CALL PATTERN I »F. 1- 
):: CALL SOUND ( 10. F2. 4 > i t NEXT P 
1430 NEXT H t : RETURN 
1440 ••••*,.#•• »• ,•••*•■*■ > , 
1450 '»TABL INTERMEDIATE 1* 
1460 ' •»****»*»*«#«*•**•••»• 
1470 TS-TS+1 :■ T1-T1*2 :■ BA-25 II CALL 

SCREEN(I2):: CALL DELSPRITE (ALL) J t CALL 

CHARSET || CALL MA6NIFYI3) 
1480 PRINT TAB (2) I "TABLEAU INTERMEDI AIRE 

NO":TS: : : : : : PRINT TAB ( 10) I "MALUS ; 
": t : :: PRINT "UN BRACONNIER VOUS TRAQ 
UE DANS LA FORET.": ■ 

1490 PRINT "CHAQUE FOIS OU'UNE BALLE 
VOUS TOUCHE : -"I Til "POINTS, "l I t I II 
GOSUB 2170 t: FOR T=l TO 700 it NEXT T 
i CALL CLEAR t i MN= 1 | : GOSUB 260 
13O0 CALL CHAR < 100. " 00000000004 I 7F070 OOO 
000001 0101 0330DB3B30FBFCFCFCFC7C7BF8DB9B 
98BB") 'BRACONNIER 
1510 CALL CHAR(116, "000000000000B* , *RPT«( 
"0".S1> ) 'BALLE 
1520 J«=-0020707020F0FC767371F8DBBC8C040 
6" it CALL CHAR(96."00000O0OO0000I03O6O4 
oodooioioi63"s.j*> ■Honne 
1330 CALL CHAR( 104. "E8A4E2A1 A20449434644 
00E0B1CI81E3"S.J*} 'HOMME TOUCHE 
1550 CALL CHAR(64."AAAAFFAAAAFFAAAA"):: 
CALL HCHAR(6,4,64,12)t: CALL HCHARU9.4 
64, 12> 

1560 BI=20 tt B2=25 :: SU-1 :i GOSUB 4SO 
1570 IF Kl THEN KL-0 t I RETURN 
1380 1-96 it X-60 t: Y-89 t: X0-230 it 
0-60 :t CALL SPRITE(#2. 100.3, YO.XO) 
1590 CALL SPRITEI«1, I,2.Y,X) 
1600 GOSUB 1690 

I6IO IF Z7. THEN Z2-0 : : RETURN 
1620 CALL KEY(O.K.S) 
1630 IF K-69 THEN I6SO 
1640 IF K-8B THEN 1670 ELSE 1600 
1650 IF Y<>49 THEN Y-Y-5 t: CALL SOUND ( 3 
0.290.B) 
1660 GOTO 1590 

1670 IF Y<>129 THEN V-Y*5 it CALL SOUND! 
30, 310,8) 
1680 GOTO HJ90 

1690 CALL P0SITI0N!#l.Yl.Xl.lt2.Y2.X2): i 
IF F THEN 1710 
1700 IF ABS(Y2-Y1X15 THEN CALL SPRITE!* 




Suite de la page 22 

177 PL0TX+32,Y-37, 1 ,5,0t PLDTX+32, Y-42.2, 3,0: PLOTX+ 
15.Y-44.3,4.0tPL0TX*24,Y-41,l. 1 , Ot PL0TX*14, Y-4B, 4, 2, 
OiPLOTX*32, Y-45,3,4,0iPL0TX*13, Y-50, 5, 2, Ot PLOTX*33, Y 
-49,3,4,0!PLOTX*12.Y-32.6,2.0tPL0TX+33.Y-53,4,l,O 

17B PL0TX*20, Y-35. 10,1,3s PLOTX* 1 1 . Y-54. 7. 1 . Ot PLOTX 
*32,Y-54,5.1,0iPL0TX*10,Y-35,9.1.0:PL0TX+32,Y-55,6,l 
,0:PL0TX*9,Y-56,11.2,0tPL0TX*31,Y-36,7,2,0tPL0TX*22. 
Y-36,6. l,3iPL0TX*20,Y-57, 10, I , 3i PL0TX*8. Y-58,7, 1.0 

179 PL0TX*15,Y-5a.7, 1 . 3t PL0TX*22. Y-58. 6, 1, IjPLOTX* 
28. Y-5B.7. 1.3iPL0TX*33, Y-58.4. 2.0iPL0TX*8. Y-59,7. 1,0 
i PLOTX* 15. Y-59, l.l,3tPL0TX*16,Y-59. IB. 1 . Oi PLOTX+34. Y 
-59,1, 1.3tPL0TX*8,Y-6O.6,l,0iPLOTX*14,Y-60, 1,1,1 

IBO PLOTX*15,Y-60,21,4,0:PLOTX*36,Y-60,4,1.0sPLOTX 
*7.Y-6I.5, l.0tPL0TX*12,Y-6I.3, 1. 1 i PL0TX+36. Y-6 1 . 5, 1. 
0iPL0TX*7.Y-62,3. 1 . 0: PLOTX + 1 0, Y-62, 5. 1 , 1 .- PL0TX*36. Y - 
62.2, 1. liPL0TX*3S.Y-62.3, 1 ,0t PL0TX*6, Y-63, 2, 1 . O: PLOT 



-63,' 



> 1> 1 



181 PL0TX+7.Y-65.9. 1. 1 t PL0TX*6. Y-64, 10.1. 1 

1B2 PL0TX+36.Y-63.6. 1 . 1 t PL0TX*6. Y-64 . 1 . 1.0tPL0TX*7 
,Y-64,1, l,0iPL0TX*16.Y-64,19,2.0:PL0TX*35.Y-64,8. 1. 1 
iFL0TX*43.Y-64, 1 , 1 , Oi PL0TX+5, Y-63. 2 . I . Oi PL0TX*35. Y-6 
3,7, 1, liPLOTX*4.Y-66,3. 1 , Ot PLOTX + 7, Y-66, 10,2, 1 1 PLOTX 
*■ 17, Y-64, 17,3,0 

183 PL0TX+34.Y-66,7,2, 1 i PLOTX *42, Y-65, 4, l.Oi PLOTX* 
41,Y-66,6,2.0lPLOTX*47, Y-67, 1.1. 1 t PLOTX *2, Y-67. 3.3. 1 
tPL0TX+5,Y-67,2.2.0:PL0TX*7.Y-68. 1. 1 , O: FL0TX*8, Y-6B. 
9,1,1 : PLOTX *34.Y-6B, 6.1. 1 : PL0TX*40, Y-6B, 6. l.Ot PLOTX* 
46, Y- 68.2, 1 . 1 

IS4 PL0TX*3.Y-69, 1,1, 1 : F'LOTX *6, Y-69, 3, 1,OiPLOTX*9, 
Y-69,9. 1 , 1 : PLOTX* IB, Y-69, 15, 2, Oi PLOTX* 33. Y-69, 6. 1. I: 
PL0TX*39.Y-69.6, 1 , Ot PLQTX+45. Y-69, 4 . 1, ltFL0TX*3. Y-70 



.4, 1, It PLOTX «7, Y-70, 3. 2,0; PLOTX* 10, Y-70. 8, 1, 1: PLOTX* 
33, Y-70, 5, 1,1 

185 PL0TX*3B,Y-70,6,2,0:PL0TX*44,Y-70,4. 1. liPLOTX* 
4.Y-71.3. I, 1:PLDTX*10, Y-71,9, 1, 1 : PLOTX+ 19, Y-7 1 , 13,2, 
OtPLOTX*ll.Y-73,9, l.Ot PLOTX+32, Y-71,6, 1 , 1 : PLOTX+44. Y 
-71,3, 1, lsPLOTX+5, Y-72,3,2. I iPLOTX+B, Y-72, 3, l.Ot PLOT 
X*a,Y-73,4, 1,0 

186 PL0TX*38.Y-70,6,2,0:PL0TX*19,Y-73, 10. 1.0:PL0TX 
*29,Y-73, 1. 1,2:PL0TX*29.Y-75,10,1, 1 

187 PL0TX*11. Y-72, 8,1. 1 : PLOTX* 12, Y-73, B, 2. 1 : PLOTX* 
20,Y-73, I, 1.2: PLOTX+32. Y-72, 5, 1 ,0iPL0TX*37. Y-72,6,2, 
0iPL0TX*43, Y-72, 3, 1, 1 : PLOTX *43. Y-73, 2, 1, l:PLOTX*30, Y 
-72,7, l,lsPL0TX+30.Y-73.7,2. 1 ! PL0TX*36, Y-74. 6, 1 , 

IBB PL0TX*36.Y-75,5.1.0!PL0TX+42.Y-74.3. 1,1: PLOTX* 
41.Y-75,3,l,ltPL0TX*6.Y-74.3, 1, 1 t PL0TX*9, Y-74, 3, 1 , Ot 
PL0TX*7.Y-75,2, 1. 1 t PL0TX*9. Y-75. 4, 1 , Os PLOTX* 13, Y-75, 
7.1. liPL0TX*20,Y-74.10,2.2tPL0TX+7,Y-76.3. I. 1: PLOTX* 
10.Y-76.4.2.0 

1B9 PL0TX*8.Y-77.2. 1 . 1 j PLOT X* 14. Y-76. 7. 2. 1 : PL0TX*2 
l.Y-76,8.3.2tPL0TX*29, Y-76,6,2. 1 t PL0TX*35. Y-76, 5. 2, 
!PLOTX*40.Y-76.3,2, 1 i PL0TX*8. Y-7B, 3. I , 1: PLOTX* 1 1 .Y-7 
0,4, l.Ot PLOTX* 15, Y-7B, 6, 1. 1 : PL0TX*29, Y-78, 3. 1, 1 t PLOT 
X.34.Y-6B.5. 1. 1 

190 PL0TX»34, Y-78.5, t.O 

191 PLOTX *39. Y-78. 3. I. 1 l PLOTX+9. Y-79. 2. 1. It PLOTX*! 
l.Y-79,2, 1. 1: PLOTX* 16. Y-79. 6, I. 1 ! PL0TX*22. Y-79. 6, 4, 2 
tPL0TX+28.Y-79.6, 1. 1 : PLOTX *34. Y-79. 4, 1 . Ot PL0TX+3B. Y- 
79. Z. 1. 1 : PLOTX+9, Y-BO, 3,1, I t PLOTX + 12. Y-80, 4 , I. 0: PLOT 
X+16. Y-B0.6, 1, 1 

192 PLOTX* 12. Y-79. 4. 1.0 

19;. PL0TX + 2B.Y-80.5.3, 1 1 F'L0TX*33. Y-80. 4. 1,0: PLOTX* 
37, Y-BO, 3,1, ::PLOTX*lO,Y-01.3,2.1tPLOTX+i3,Y-ai,3. 1, 
OiPLOTX+i;.Y-B2,4, 1.0:PL0TX*16,Y-BI.6.1. ljPL0TX*17,Y 
-82,5, 1, l:PL0TX+33.Y-81.3.1.0:PL0TX*33.Y-82,2, 1,0 

194 PLOTX. 36. Y-B1.4. 1. 1 : PLOTX +35. Y-B2. 4, 1, 1 : PLOTX* 




B3,3.2,1:PL0TX*I4,Y-B3.3. 1.0tPL0TX+ 14. Y-84, 4. 1 . 
!PLDTX+17,Y-B3,6. 1. 1 t PLOTX* 18, Y-84, 5, 1, 1: PLOTX *23,Y 
83.4.4,2:PL0TX»27.Y-83,6,2, I : PLOTX+34, Y-83. 4, I , 1 

195 PLOTX+34, Y-B4, 3, l,liPLDTX+l 2. Y-B5, 3.2, It PLOTX* 
3.Y-B5, 3,2.0; PLOTX* IB. Y-05,5,2. 1 ; PLOTX +27, Y-85, 5, 1, 
iFLOTX+33, Y-85,3. 1. 1 : PLOTX+27, Y-86. 4, 1, It PLDTX+32, Y 

86,3.1, ltPL0TX*14,Y~87,2, 1 . 1 t PLOTX+ 16, Y-87, 2, I . O 

196 PL0TX+33.Y-83. 1.1.0: PLOTX+32, Y-84. 2. l.Ot PLOTX* 
1.Y-B5.2. I.0tPL0TX*30,Y-86.2. 1 , 0: PLOTX+28, Y-B7 . 3. 1 . 
tPL0TX*28, Y-BB.2, 1 . 0: PLOTX+27, Y-89. 2, 1,0 

197 PL0TX*17.Y-87,12, 1. 1 : PL0TX*31 , Y-87, 3, 1 . 1: PLOTX 
14.Y-88.3. 1, 1 t PLOTX* 17, Y-BS, 1 . 2, Ot PLOTX* 18; Y-B8. 1 
, 1:FL0TX+30.Y-B8,3,1, 1 i PLOTX* 15. Y-89, 2, I, 1: PLOTX* 18 
Y-S9, 10. 1. 1: PLOTX +29. Y-89. 4. I . 1 : PLOTX* 15, Y-90, 3, 1, 1 



198 PL0TX*I7.Y-87, 

199 PL0TX+19.Y-90, 
16. Y-91 .3,2, 1 : PLOTX- 
1 : PLOT X*2B.Y-9 1.3. 1, 

93, Z, I, liPL0TX*2I.' 

200 FLOTX+17. Y-90. 
19.Y-92.2. 1,0:PL0TX- 
0:FL0TX*27,Y-9I.2. I, 
-93.2, 1.0:PL0TX+24.' 

201 PL0TX*18.Y-94, 
19,Y-95,3,2. 1 tPLOTX-i 
I:PLDTX*25.Y-90.3, 1, 
-91 ,*,, 2. 1 :PL0TX*22.i 

202 PL0TX*22,Y-95, 

203 PLDTX+21.Y-95, 
22. Y-97.2. l.OtPLOTX- 

204 ' * AS t 

205 OUTPUT!. X-4.Y- 
:V=Y*51 

206 RETURN 



1. l,0:PL0TX+18,Y-90.2, 1,0 

9.1, liPL0TX*29. Y-90, 3,1, It PLOTX 

20, Y-91, 7. l.ltPL0TX*20,Y-92.6,l. 

ltPL0TX*27,Y-92,3. 1. 1:PL0TX*17,Y 

-93.4. 1. 1; PLOTX* 26. Y-93, 3.2, 1 

2, l.Ot PLOTX* 18, Y-91, 2, l.OtPLDTX* 

20, Y -93, 2, 1 .0: PLOTX+27. Y-90, 2, 1 , 

0: PLOTX +26. Y-92.2. i . O: PLOTX +25, Y 

-94.2, 1,0 

3. 1, 1 :F'L0TX*22. Y-94,3. 1. l! PLOTX* 

22. Y-91, 3, 2. tiPL0TX*23,Y-90. 1.1. 

liPL0TX*24.Y-91,3, 1 . It PLOTX* 20. Y 



99, 



.1.1 



>.2. ltPL0TX + 20.Y-97.7.2. I 
!.1.0tPL0TX*2I.Y-96,2. 1,0s PLOTX* 
M.Y-94.1, l.OiRETURN 

:.F;X=X*19i Y=Y-5I:G0SUB ElX-X-19 



23 



LA CHAMBRE 
AUX BULLES 



De la physique cette semaine (une fois n'est pas cou- 
tume). Dommage que Ton ne puisse emmener son PC 
aux examens. 

J. Luc CECCOLI 

Mode d'emploi: 

Taper DEF B.I. Choisir alors entre un choc etastique ou inelastlque 
Proceder ensuite a lentree des rayons de courbure des diflerenles 
particules puis des quanlites de mouvements de la partlcule Inci- 
dents et de la 4° (si choc Inelastlque). puis des noms des particules 
de la (aeon suivanle: Majuscules et en toutes lettres . suivies evenluel- 
lement de leur charge sans espace entre. Exemple. pour le meson 
PI+ entrer PION+ , pour le meson K° entrer KAONO, pour le photon 
entrer LAMBDA, pour lelectron entrer ELECTRON. 
Apres quoi, vous aurez le choix entre (ormuler une autre hypothese. 
passer a retude dun autre choc, echanger les valeurs de A(2) et de 
A(3) e'est-a-dire des rayons de courbure des particules 2 et 3 ou de 
quitter le programme qui s'autodetruira alors. 



18: REn ********** 

************** 
*** 

28; REn * 



38: REn * CHAnB 
RE A BULLES 

48: REM * AUTEUR C 

ECCOLJ J-L 138 

2 * 
50: REn * PROSRAHM 

E POUR PC- 150 

» 
60JREn * COPYRIGH 

T L*AUTEUR 19B 

4 * 
70: REn * 



>,2> 

300:C(B-B)=O:A*(B- 



Hi) 
120: 
338: 

34 0: 

350: 
3r>0: 



8)=B* 
RETURN 
REtl 
REM - — 




80: REn ********** 

»***,***»»**** 
»** 

30: REn 
i00rREn — — - 

110IREH SOUS-PROGR 
AtinE DE SAIS1E 

128: REn ET DE REC 
HERCME DU NOI1 

130! RET DE LA PART 
1CULE PROPOSEE 

nerREn 

1501 REM 

160! CLS I RESTORE 

1701PRINT -PARTICU 

LE "+STR* (B-8 

> 
180:CURSOR 16! 

INPUT B* 
130! REtl 
2B0!REt1 

210!REn BOUCLE DE 

LOCALISATION 
220! RE" 

230: REN 

240:FOR N=1T0 13! 

READ A(B),A*(B 

-8) 
250:F»»LEFT* (A»(B 

-8),LEN B») 
2601 IF F»OB»TNEN 

NEXT NSGOTO 16 


270:N=19:NEXT N!B< 

B-8)=0 
280: IF A(B))5B0 

THEN LET B(B-8 

> = 1 
290:r>SGN UAL 

RIGHT* (A*(8-8 



408 

410; 
430 

430 



400: 
470: 



REtl TABLEAU DE 

COrlPARAISON 
REM DU NOtl DE 
LA PART1CULE 
REI1 

REn 

DATA 0, "NEUTRI 
NO", 0, "GArmA" 
DATA .511, -ELE 
CTRON-1", 105.6 
6, "nUON-1", 195 
5, "DEUTON+I" 
DATA 338.25, "P 
ROTON-M", 939.5 
5, "NEUTRON- 
DATA 1115.4, "L 
AHBDA", 1196, "S 

]GnA-i" 

DATA 1192.3, "S 

1GMA0", 1189.4, 

"SIGrlA+1" 

DATA 1321, "XI- 

1", 1314, "XI0", 

1626, "OnEGA-I" 

DATA 135, "PION 

0", 139.6, "PION 

-1" 

DATA 139.6, "PI 

ON+l",497.8, "K 

AON0", 493.8, "K 

AON+1" 

REn 

RET 



580 : REtl 

590!PR1NT "KELAST 

IQUE 21INELAST 

10UE" 
600!A«--1NKEY» 
610: IF A*=""THEN 

GOTO 600 
620: IF A*(>"1"AND 

A»0"2"THEN 

GOTO 600 
630! REn 
640!REn 



650: REn ENTREE DU 

RAYON DE CDURB 

URE 
660: REn DES DIFFER 

ENTES PARTICU 

LES 
670! REn 



680! REn 
690!A=UAL A* 
700:FOR B=1T0 3 
710: CLS 
720: PR I NT "RAYON 

»STR« B 
730! CURSOR 16: 

INPUT A(B) 
740: NEXT B 
750: REn 
760: REn 



320! REn 
930:A(4)=A(8)/A(5) 

*A(1) 
940: B=9: GOSUB 160 
950: FOR B=6T0 7 
960:A(8)=*A(5)2A(1) 

*A(B-4) 
978! NEXT B 
980! FOR 8=1 0TO 11 
990!GOSUB 160 
1000: NEXT B 
1010: IF A=2THEN 
LET B=12: 
GOSUB 160 
1020:FOR B=13T0 1 

5 
1030:A(B)=SQR (A( 
B-8)"2+A(B-4 
>«2> 
1040: NEXT B 
1050:A(13)=A(13)* 

A(9> 
1060: IF A-1THEN 

GOTO 1160 
1070:A(16)=SOR (A 
(8)r*2+A(12)~ 
2> 
1080: REn 
10301 REn 



REtl 

COLOR 3:K=I9 

0:6LCURSOR C 

K, 0) 

LPRINT "L"HY 

POTHESE" 

LPRINT USING 

"«««"; C 

LPRINT " "-»A 

*(1)+" "+A*( 

2) 

K=K-30: 

GLCURSOR (K, 

0> 

LPRINT "--> 

"*A»(2)-»" " 

LPRINT A«(3) 

♦" "+A«(4> 

K=K-30: 

GLCURSOR CK, 



1350:LPRINT "EST 
1RRECEUABLE 
CAR! " 

IF G<1THEN 
GOTO 1390 
K=K-38: 
GLCURSOR (K, 



1280: 
13981 

1300 

1310: 

1320: 
1330: 
1340: 



1850: REn 
1860: COLOR 1: 

GLCURSOR (13 

0, -18*(3-A)) 
1870: IF A=1THEN 

LPRINT "CHOC 
ELASTIOUE " 
1880: IF A=2THEN 

LPRINT "CHOC 
INELASTIOUE 



1360: 

I 
1370: 



460: 
430: 



REn INITIALISA 

TION DES UARIA 

BLES 

REn 



see: 

MB: 



520! 
530: 



540: 
550! 



REn 

B"CLEAR :Din 
A(16),A*(4),B( 
4), C<4) 
CLS :UA1T 0: 
RESTORE 
GRAPH : ROTATE 
I: GLCURSOR (8, 
-40) 

REn 

REn 



IrREn CHOIX DE L 
A NATURE DU CH 



770: REn ENTREE DE 
LA QUANT1TE DE 

780! REn tlOUUEtlENT 
DES PARTICULES 

790: REM 

800: REn 

810:CLS :PR1NT "<H 

e de mui 1 " 
820; CURSOR 16: 

INPUT A(S) 
830: IF A^ITHEN 

GOTO 930 
8401CLS :PRINT "Qt 

e de iwt 4" 
850: CURSOR 16: 

INPUT A(8) 
860: REn 
870!RET1 



880: REn CALCUL DU 
RAYON DE COURB 
URF 

890: REn DE P4 ET 
DE LA QUANT 
ITE 



J108:REn UER1F1CA 

TION OE LA 
II 10: RED SAT1SFAC 

TION DE L" 
1120: REn HYPOTHES 

E AUX DEUX 
1130: REtl EXIGENCE 

S HAJEURES 
1140IREH 



1400 
1410 



LPRINT "- NO 
HBRE BARYONI 
QUE NON RESP 
ECTE" 

IF Jo THEN 
GOTO 1420 
K=K-30: 
GLCURSOR (K, 



15201PRJNT "l:R2" 

;:GPRINT C«, 
1530: PRINT "R3 2: 

CONT" 
1540:D»=INKEY« 
1550: IF D»=""THEN 

GOTO 1540 
15601 IF D»="l" 

THEN GOTO 15 

90 
1570: IF D«="2" 

THEN GOTO 22 

30 1890:LPRINT " HYP 

1580:GOTO 1540 OTHESE" 

1590:A(0)=A(2):A( 1300:LPR1NT USING 

2)=A(3):A(3) "UKr'iC 

=A(0) 1310:GLCURSOR <16 

1600:GOTO 350 0,-10> 

1610:REn 19201LPRINT "P": 

1620:REn GLCURSOR (.16 

0, -85) 

1630:REn HYPOTHES 1930:LPRINT "R": 

E ACCEPTEE GLCURSOR (16 

1640:REP1 0,-140) 

19401LPRINT "n": 

1650:RErt GLCURSOR (16 

1660:REn 0,-200) 

1950:LPRINT "E": 

1670: REH TRACE DU GLCURSOR (16 

TABLEAU 8, -280) 

1680:REn 1960:LPRINT "PART 

ICULE":CSIZE 

1690: REn 1 

1700:L=90-30*A 19701GLCURSOR (16 

17101LINE (180,0) 0,-25): 

-(L-30, -380) LPRINT "rteU7 



20701 IF A=1THEN 

GOTO 2100 
2880: GLCURSOR (35 

,0):LPRINT A 

(8)IA(4) 
2090:LPR1NT A(12) 

;A(16)J" "J 

A*(4) 
2100: COLOR 3: 

GLCURSOR (L- 

20,-30) 
2I10:n=A(13)-A(14 

)-A(15)-A(16 

) 
2120: LPRINT "UAR1 

ATION ABSOLU 

E" 
2I30:P=ABS n: 

LPRINT P-».5i 

" neU" 
2140:GLCURSOR (0, 

-480):SOR6N 

:CLS 
2150: REn 
2160:REn 



2170:REH POURSUIT 

E DE L« ETUD 

E DU 
2180: REn CHOC, PAS 

SAGE A UNE A 

UTRE 
213B:RFn HYPOTHEC 

E, ECHANGE E 

NTRE 
2200: REM R2 ET 

R3 OU CESSA 

TION 
2210!REn 



1150: REn 
1160:C=C*l:D=0:E- 

B(l)*8(2> 
1170:F-B(2)»B(3)* 

B(4) 
1|80:G=0:IF EOF 

LET G=1:D=1 
1190!H=CU)+C(2): 

I=C(2)+C(3)+ 

C<4) 
J200:J=0:1F HOI 

LET J=1SD=1 
1210: IF D=0THEN 

GOTO 1700 
1 220: REn 
1230:REn 



LPRINT "- NO 
HBRE DE CHSR 
GES NON RESP 
ECTE" 
K=K-50: 
GLCURSOR CK. 
-40) 

LPRINT "UEU1 
LLE2 RECT1F1 
ER 1" 
1440:GLCURSOR (0, 
480):SORGN 
REn 
REN 



1420 
1430 



1450:1 
1460:1 



!240:REt1 HYPOTHES 
E REJETEE 



1470: REn ECHANGE 

ENTRE LES RA 

YONS 
1480:REtl DE C0UR8 

URE DE P2 E 

T P3 
1430:REH ■-- 



1720! 
1730: 
1740: 
1750: 
1760! 

1770: 



1810 
1820 



LINE (150,0) 
-(150,-380) 
LINE (120,-3 
80)-(120, 0) 
LINE (90,0)- 
(30, -380) 
LINE (60,-38 
0)-(60, 0) 
IF A=2THEN 
LINE (30,0)- 
(30,-380) 
LINE (180,-2 
50>-<L, -250) 
LINE (L, -185 
)-(180, -185) 
LINE (180,-1 
25)-(L, -125) 
LINE (L, -70) 
-(180,-70) 

REn 

reh 



19801GLCURSOR (16 
0,-100): 
LPRINT "cm" 

1990: GLCURSOR (16 
0,-155): 
LPRINT "rteU" 

2000: GLCURSOR (16 
0,-215): 
LPRINT "neU" 

2010: COLOR 2: 
CSI2E 2: 
USING "««*«* 

2020: FOR B'9T0 11 
2030: GLCURSOR (15 

5-30»(B-8>, 

) 
2040: LPRINT A(B-4 

)!A(B-8)IA(B 

) 
2050: LPRINT A(B*4 

)!" ";A»(B- 



1830:REH EDITION 2060:NEXT B 




2220: REn 

2230:PRINT "1:HYP 
2: CHOC 3: EC 

H 4:F1N" 
2240:E»«INKEY« 
2250: IF Et>"THEN 

GOTO 2240 
2260: IF E«="l" 

THEN GOTO 98 


2270: IF E»="2" 

THEN 60T0 51 


2280: IF E»="3" 

THEN GOTO 15 

98 
2290: IF E»="4" 

THEN TEXT : 

GOTO 2310 
2300: GOTO 2240 
2310: POKE. 1 3805,2 

55: POKE 1286 

7, 138, (C5: 

END • 



j&^L 




y Tl 99 BASIC ETENDU 

Suite de la page 23 



4. 1 lb, 2. YC>, XO.G, -50) : : F> 1 i: CALL SOUND 

(20,200,31:1 BA»BA-1 ti IF SA-0 THEN CAL 

L S0UND<7.O,BOO.3) : i ZZ-l II RETURN 

1710 IF V2<VI THEN YO-YO+4 ELSE YO-VO-4 

1720 CALL LOCATE(«2,Y0.XO> 

1730 FOR T»I TO 4 i: CALL COINC <»1 , »4, 8, 

Oil IF C THEN I7B0 

1740 NEXT T 

1750 FOR G-l TO b :i CALL POSIT ION l«4. Y4 

.X4):: IF X«X THEN 1770 

1760 NEXT G :: RETURN- 

1770 CALL DELSPRITE(#4) : i F«0 i: RETURN 

1780 CALL D£LSFRITE<#4>:: CALL PATTERN**) 

1,1041:: CALL SOUND ( 1 OO, 900, 1 . BOO. I . -7. 1 

>:: FOR D-l TO 100 :: NEXT D :: F-0 :: P 

T=PT-T1 :: CALL PATTERN I # 1 . 96) : : RETURN 

1790 -•■■■••*••»•**•«•**•*•» 

1800 -"TABL INTERMEDIATE 2* 

1B10 '.•••..*•••«...■....#.• 

1820 TS = TS*1 j: FP2-FP2+2 :: 60R=G0F(*12 

:: CALL SCREEN<12)n CALL DELSPR ITE (ALL > 

:: CALL CHARSET :: CALL MAGNIFY<3> 

1630 PRINT TAB(2>t "TABLEAU INTERMEDI A I RE 



N0":TS: : : :: PRINT TAB(7) ! "BONUS & MA 
LUB : " ! : : : 

1840 PRINT "FLECHE PLANTEE 
DANS LE SDL : -": FP2; "POINTS. " : : 
1850 PRINT "GORILLE MORT i v +" S GORi "POINT 
S.": ! :s PRINT "TERRASSE PAR 

LE GORILLE : -"i GORi "POINTS. " i % : 

i860 GOSUB 2170 :: FOR T-l TO BOO ■■ NEX 
T T : : CALL CLEAR j : MN= 1 : : GOSUB 1 90 
1870 CALL CHAR(88."E3E5C:7F7FF7F3FOF07070 
70F1F1E3C3CC040COEOFBFCFCFCF8EOFOFBFB7B3 
C3C") 'GORILLE 1 

1880 CALL CHARI92. "03020307 1F3F3F1F07070 
F1F1F1E3C3CC7A7E3EFFFFEFCF0E0E0E0F0F87B3 
C3C") 'GDRILLE 2 

1890 CALL CHAR(33. "4OC02O1O0BO4O2O1 '•) : : 
KL=1 :: GOSUB 1550 

1900 X0=230 :: YO=B9 i: 1=108 :: X=25 l! 
Y=B7 :s F=l :: CALL SFRITE (»2. 8B. 2. YO. V 

1910 CALL SPRITEiil. I.2.Y.X) 

1920 GOSUB 2080 

1930 IF SD THEN SD=0 :: RETURN 

1940 CALL KEY(0,K.S) 

1930 IF 1-69 THEN 1980 

1960 IF 1-.-B8 THEN 2000 

1970 IF l'-76 THEN 2020 ELSE 1920 

19B0 IF V 51 THEN Y«Y-6 



1990 GOTO 1910 

2000 IF YOI29 THEN Y*Y-»6 

201O GOTO 1910 

2020 CALL POSITIONS). Yl.Xll:t CALL SPRI 

TE(#3, 124,5, Yl. XI, 2,40)1: CALL PATTERNS 

1.96):i CALL SOUND (20. -6, 4 > : : FOR T-l TC 

5 : : NE X T T 
2030 FOR E=I TO 23 :: CALL CO INC ( 112. #3. b 
.C> : : IF C THEN 2070 
2040 NEXT E 

2030 CALL H0TI0N(tt3.O,O):i CALL POSITION 
(K3.Y3.X3):: CALL DELSPR I TE ( H3) j : CALL H 
CHAR! INT (Y3/B1 + 1. INT 1X3/8) +2. 33) t i CALL 
SOUND < 30, 40O.0) 
2060 CALL PATTERNHIl.lOO) j: PT-=PT-FP2 :: 

GOTO 1920 
2070 CALL M0TIDN(e3.0,0.N2,0,O) : i CALL D 
ELSPRITE(fl3> : : CALL COLOR ( »2. 9) : : FOR T- 
1 TO lOO i: NEXT T •: PT-PT-H30R :: RETUR 
N 

20B0 CALL P0S1TI0N(«2, Y2.X2) t : IF X2<90 
THEN 2130 

2090 IF Y2<49 THEN <. 
HEN V--10 
2100 CALL M0TI0N1B2. 

i: NEXT T 
2110 IF F THEN CALL PATTERN <*2, 92) I : CAL 
L SOUNDMO. 1 10,0) : : F-0 ELSE CALL PATTER 
N<*2,88>:: CALL 50UND (40. 1 10. 0) : : F- 1 



=10 ELSE IF ' 



FDR T=l 



ITS' T 



2120 CALL MOTION(»2/, INT (RND« 16) -8. -2) : i 
FOR T=l TO 15 l: NEXT T s: RETURN 
\£130 CALL MOTION(»2,0,0):rf CALL POSITION 
mi,VI,Xl.»2,Y2,X2»: s IF V2>Y1 THEN P— 2 
ELSE P=2 
2140 FOR XX-X2 TO XI STEP -2 tl CALL LOC 
ATE(#2,Y2,XX) i: CALL SOUND (5. 200, 3) t t NE 
XT XX 

2130 FOR YV-Y2 TO VI STEP P i: CALL LOCA 
TEti2.VY.Xl) II CALL SOUND 15, 1 10, 5) l I NEX 
T YY 

2160 CALL C0L0R((H,9) j : CALL S0UNDU0O.7 
OO, 0.-2.0>:t FOR T-I TO 200 :: NEXT T t: 

PT=PT-GOR :: SD=1 t: RETURN 
2170 D-140 i: P=6 tl CALL SOUND t D, 262. P, 
523.P, 1047.P): j CALL SOUND CD. 131 . P, 262, P 
.523.P) 

2180 CALL S0UN0(D,247.P.494.P,988.F) i : C 
ALL SDUNDtD, 147. P, 294, P. 587. P) : : CALL SO 
UND ( D , 220 . P. 440, P , 8B0, P ) 

2190 CALL S0UND(D,163.P,330.P.659,P)n C 
ALL SOUNDID. 196,P.392,P,784.P) : : CALL SO 
UNDID. 262, P. 523, P. 1047. P) : : RETURN 
2200 CALL CLEAR : : CALL CHARSET : l CALL 
DELSPRITE(ALL): : PRINT "VOTRE SCORE FINA 
1. |"|PT| : : :: GOSUB 2 1 70 n PRINT "PRE 
SSEZ J POUR REJOUER": : 

2210 CALL KEV(0,K,S)ll IF K=74 THEN 70 E 
LSE [F S THEN END ELSE 2210 9 



SOS INVASION 



Damned ! les OVNIS attaquent la ville, ne perdez sur- 
tout pas de temps. Tel Guy L'eclair, prenez place a 
bord de votre Vic a reacteur et repoussez ces rascals 
au fin fond de lespace. 

Alexandre BROUCHOUD. 

Mode d'emploi : 

Attention avant de taper ou de charger !e programe principal, le petit 

programme doil ette imperativement execute 




A suivre : 

En raison de la longueur 
mhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois 



9 P0KE36878,6 

10 K$«"BONJ0UR. JE SUIS L ' OPtHHRTEUP VIC 343Z ET VOICI VOTPE MISSION VOUS BEVEZ" 

11 J*=" DEFENDRE VOTPE VILLE CONTRE LES ENVRHISSEUPS EN MRROUP.NT 6000 POINTS. POU 
R CELfl" 

12 H*=" VOUS BISPOSEZ D'UN 7RISSERU REPIEN ET P'UNE BfiTTERIE SE TPOUVRNT SUP TEP 
RE. " 

1? Gf="EN VOUS SERVANT DES TOUCHES F5 ET F? VOUS LE FEREZ MONTER OU DESCENDRE" 

14 F$=".riE LA TOUCHE 'X' VOUS LE FERE2 TIREP ET RVEC LP. TOUCHE 'Z' VOUS UTILISER 
EZ Lfi " 

15 B*»"BRTTERIE. ATTENTION RUX RTTROUES PES OVNIS QUI VOUS FEPONT PEPDPE DES PTS 
DE VIE' I" 

17 QOSUB9100 

18 SC=0 P.= 17B=11RT=0 BT=21 K=0 r.Ci=30720 V=r6SQ*FH-B#22 VIE=5 

19 P0i'E36*7S. If.!' PQKE36869.253 P0KE36378.15 

20 0=7163 F0PH=OTOO+511 POKEH . PEEK XH+25600> NEXT 
30 F OPT = EU 0423 PERDU POKEO* T , W NEXT 

37 PRINT":]" ■ FORU=7680TO7702+131 POKEU . 39 : POKEU+30728, NEXT 

40 pPira-'iiwwpiwiwwnpiiwwpiwiw^tcrH^rDfc-itxii.rv^iiirip r.~mn<imtMrmw. j vzi>EFGHi}* 
y.y.m" 

41 P0KE8185.37 P0KE81S5+C0,9 

50 Yl=*INT<:PND<.l.>*ll>+7 IFK=1THENK=0 X1=0 GOTO90 
60 V2=INT<RNIKl>*ll>+7 IFK=2THENK=8 X2=0 OOTO90 
70 V3=INT(;RNDC 1 >*1 1 3+7 IFK«3THENK=0 : X3*0 OOTO90 
80 V4=INT'.PNB( 1 >*1 1 >*? 1FK=4THEHK=0 X4*0 ■ GOTO90 

90 POKEV . 32 : POKEV-1 . 32 ! V-7680+A+B*22 

91 P0KE36874, 128 

92 AT=0 BT=21 
100 S=PEEKX203> 
110 IFS"63THENF=B+1 
120 IFS-55THENB=B-1 
130 IFB-19THENB-B-1 
140 IFB=6THENB=B+1 

150 GG=V-1 IFGG=E10PGG=E20R0G*E30PG0*E4THENKK"1 GOSUB5Z00 

161 print "arscwmmNMrviE'C" 

170 POKEV. 27 POKEV-1, 28 POKEV+CO, 6 POKEV+CO-1 .6 P0KE36374, IFSC»>6000THEN9600 

171 IFVIE<*0THEN190 

172 IFS»33THEN1600 
180 IFS*26THEN2000 

190 POKE36874.0IFE1=8185THEN240 

191 S=0 

20fi IFX1-22THENGOSUB5000 El a 8183 : OOTO240 

210 POKEE 1,32 

220 E1=7680+X1+V1«22 Xl-Xl+1 

230 POKEE 1,29 POKEE 1+CO. 2 



240 IFE2«8162THEN280 

230 IFK2«aiTHENOOSUB303a E2*8162 G0T0288 

260 P0KEE232 

270 £2«7688+X2+Y2*22 X2-X2+ 1 P0KEE2 ,31 P0KEE2+C0 ■ 4 

271 ZX=>RND<0> IFZX>.20RNDX2=1THENF*1 GOSUB7000 
280 IFE3=8161THEN320 

290 IFX3=20THEHGO':.UB505O E3=3161 GOTO320 
300 P0KEE3.32 

310 E3«7680+X3+V3*22 : X3=X3+1 P0KEE3- 31 P0KEE3+C0. 5 

311 ZZ-RNDC0): IFZZ>.30ANDX3=11THENGOSUB7000 
320 IFE4=8160THEN370 

330 IFX4=19THENGOSUB5070 ■ E4=8160 GOTO370 

340 P0KEE4.32 

350 E4=7630+X4+Y4*22-X4=X4+1 P0KEE4. 30 POKEE4+CO,0 

360 N=RND(0) ■ IFN>.30THENGOSUB51W 

370 IFE1«8185RNDE2»8162RNDE3=6161RNDE4*8160THEN6000 

380 POKEV. 32 POKEV-1 , 32 V=7680+R*B#22 

390 GETA* 

400 IFfl*="M"THENB=B+l 

410 IFR**"I|"THENB-B-1 

430 IFB»19THENB-B-1 

440 IFB-6THEN8-B+1 

450 POKEV • 27 POKEV- 1,28 POKEV+CO - 6 POKEV+CO- 1 , 6 

470 S=0 B-B+0 GOTO90 

1600 FOPU-190TO220 P0KE36876, U ■ NEXT P0KE36876. 

1610 F0PQQ-BTT07STEP-1 RT=RT+1 

1620 PP*7680+HT+QQ*22 

1630 P0KEPP.33 P0KEPP+CQ,2 

1640 IFPEEK-:PP-21)»29THENK=1.P0KEE1.35 P0KEE1+C0-7 GOSUB5500 : POKEE 1 , 32 GOTO30 

1650 IFPEEK(PP-21)*30THENK=4'POKEE4:35 P0KEE4+CQ - 7 GOSUB55O0 : PQKEE4, 32 00T088 

1660 IFE2=PP-21THENK=2 P0KEE2 ■ 35 P0KEE2+C0. 7 ■ GQSUB5300 P0KEE2. 32 i GOTG60 

1670 IFE3=PP-21THENK=3 P0KEE3.35 PQKEE3+C0 , 7 GOSUB5500 PGKEE2. 32 -GOTO70 

1680 NEXT RT=0 8T=21 F0RQOBTT0?STEP-rRT=RT+l EE=76^>RT*nQ*22 POKEEE ■ ?2 NE;:T G 

0T0180 

2000 RR=R-2 FQRU=2O0TO230 P0KE36676, U NEXT POKE368?6,0 

2010 F0Pia=RAT01STEP-l :PP=7630+Q+B#22 POKEPP ■ 34 P0KEPP+C0-2 

2020 IFPEEK'PP-1><»29THENK=1 P0KEE1-35 POKEE 1+CO, 7 OOSUB5300 : POKEE 1 . 32 50T0S6 

2030 IFPEEK<PP-1 >=30THENK=4 P0KEE4 . 35 P0KEE4+C0 . ? G0SUB33W P0KE42, 32 GOTO30 

2040 1FE2»PP-1THEHK=2 P0KEE2. 35 P0KEE2K0, r OOSUB5300 P0KEE2- 32 GOTOM 

2050 IFE3=PP-1THENK=3 P0KEE3.35 P0KEE3+C0.7 ■ GOSUB530O P0KEE3, 32 'GOTO70 

2060 NEXT 

2970 F0RQ«flAT01ST£P-l PP=7680+Q+B*22 P0KEPP.32 NEXT GOTO190 

50Q0 FORt1=20+200TOYi+20OSTEP-l P0KEE1 . 32 -El=EI+22 POK£36875,nFORU=lTO10 NEXT 

50 ! POKEE 1.29 POKEE 1 +C0 - 2 : NEXT : P0KE36875 , : RETURN 

5030 FORM=220TOV2*200STEP-1 P0VEE2-32 E2=E2+22 P0KE36875 ■ n FORUMTO10 NEXT 




A SUIVRE... 



SCORE 



Des lettres dans cadre a placer 
Et au plus vite en faire un mot 
Raisonnement, rapidite 
Porteront le score au plus haut. 

Michel DEVOYON 



Mode d'emploi : 

Faire DEFM2 et lancer le programme en faisant F1P0. 
Vous devez essayer en une minute, de placer le plus possible des 
douze lettres donnees par I'ordinateur, dans le cadre ci-contre.Au 
bout dune minute (si plus tot, tapez M). I'ordinaleur demande votre 
mot. son total de lettres el si vous le muilipliez par : 12.9,4.3.2 (re- 
pondre sil n'y a nen).Pour multiplier par 12. il laut mettre un mot 
de 9 lettres dans les cases ou il y a 3 triples, par 9 si il y a 2 triples. 
ou par 3 selon la longueur du mot (vous devez commencer a la 
case STAHT).Apres avoir repondu. I'ordinaleur demande si vous 
avez un autre mot. Si our. tapez O. si non. en tapant N. i'ordinaleur 
vous donnera votre score. 
Attribution des points : 

A 1 pt 

B 5 pts 

C 3 pts 

D3pts 

E 1 pts 

F4pts 

G4 pts 

H5pls 

I 2 pts 

J 6 pts 

K8ptS 

1_2 pis 

M3pts 

N2ptS 

2 pts 

P3pts 

5 Pts 

R2 pts 

S1 pt 

T2pts 

U2pts 

V4pts 

W8pts 

X6pts 

Y6pts 

Z6 pts 

JOCKER, prend les points de la lettre qu'ii remplace. 
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LIST WW 

1 WHIT «:VflC :i= 

"* S C G R : 

E K=l TO 3 

2 nun ie:p?,T m 

3 8=8-l;W-l:HEH 

T K 
5 FOR 0=8 TO 2 
10 WRIT 2ifOR M 
to mm CSR 2 

;"* "iCSR 15!" 
*"!CSJ Willi 

MA) 
12 NEXT DiNEXT 0:P 
BT 

14 $="S C R E":S 
=0 

15 S=S+l: IF S=ll T 
HEN 21 

16 FOR R=17 TO 5 S 
TEP -1 

17 PRT CES R+l;« " 

18 PRT CSR RiNIKS 
,1)1 

19 IF S+5=P 'M ! 
5 

:>. ■■i.' r 

21 FOR K=8 TO T:HH 
IT 15SPRT :F:i 
CSRiUiHEXl K 

TO »="R8CDEF6HIJKL 



31 fl=LEHff1 

32 F5P 1=1 TO 12 

33 IIUH-IItT (RBH 
#*28): IF flU)=9 

THEH 33 

34 HEiiT I 

35 BMMNIUiDiCi 
=HID<R2.1>:DS=n 
I8(fl3il):EI=Hll) 
(fM.l) 

36 F$=HID(05,1):6$ 
=«D(flb,l):H«=n 

iD(H7>i) 

3? J$=MID<fl8,l>:Kt 
=l1ID(fi9.1)!L*=ll 
ID(B«,1) 

38 «=H1D(B1.1)IIH 
=H!D<82.1> 

39 l='"':{=B«*CJ*DI 
tE»+FJt8J*H$*J$ 
+Kt*L*+H$+H* 

48 PRT "VCS LETTRE 

41 S=8 

42 S=S*l:IF S=13 T 
HEH 48 

43 FOR R=17 TO 5 S 
TEP -1 

44 PRT CSR R+li' " 

45 PRT CSR R;MD(S 

,1); 

46 IF S+5=P THEN 4 
4? NEXT R 



48 STOP 

58 WIT 1880:0=8 

51 IF KEY«"if THEN 

128 
68 INP "TON NOT ! 

",P$ 
68 INP "SOH TOTAL 

DE CHIFFRES : " 

■( 
88 PRT "NULT1PLIER 
PAR 12,9.4,3,2 

,8 ?"! 
98 PRT "TAPER 0(*1 

2)i9(»5).4(*4)> 

188 PRT "3(»3),2(«2 
),8 S-IL H-Y A 
RIEN" 

181 Rt=KEY:IF RJ="" 

THEH 181 

182 IF R$=X THEN 
112 

103 IF R$="9" THEN 
113 

184 IF R«="4" THEN 
114 

185 IF R»="3" THEN 
115 

106 IF R»="2" THEN 
116 

187 X=0 

188 Z=Z+X 

189 I HP "AUTRE HOT 
(0/K)".H 

118 IF V*="0" THEN 



111 60T0 168 

112 X=Q*12:60T0 188 

113 X=Qt9:80T0 188 

114 X=e*4!6OT0 188 

115 X=0*3:S0T0 188 

116 X=9*2:60TO 183 
128 KBIT 1880:0=0*1 

l IF 0=60 THEN 1 
25 
121 SOTO 51 

125 prt "c-est terk 

ine "; 

126 prt "il f3ut do 

ONER m '!i^":60 
TO 68 
168 t="SC0RE : ":S= 


161 S=S*l:iFS=9 TK 
EN 167 

162 FOR R=17 TO 5 S 
TEP -1 

163 PRT CSR R+ll" " 

164 PRT CSR Rl AID'S 
,l)i 

165 IF S+5=R THEN 1 
61 

166 NFXT R 

167 PRT " ";2iFRT 
170 »="ENC0RE'J.'N" 

":S=8 
i^ft 5=8 
288 S=S+ISIF S=13 T 

HEH 268 
218 FOR R=17 TO 5 S 

TEP -1 



228 PRT CSP R'i;" " 

238 PRT CSR R:H1D«S 

• 1): 
248 IF S+5=R THEH 2 

88 
258 HEXT R 
268 PRT CSR 6!$" IF 
KEV=°" THEN 26 

8 
270 IF KEY="0";PRT 

:60TO 1 
275 PRT 
288 *="AU REVOIR !" 

:s=e 

298S=S+l:IF S=12 T 

HEN 358 
388 FOR R=17 TO 5 S 

TEP -1 
318 PRT CSR Rtti" " 

328 PRT CSR RlHIDiS 

,1); 

338 IF S+5=R THEN 2 

98 
348 NEXT R 
358 FOR K=8 TO 7:NA 

IT 18JPRT :PRT 

CSR 6!«:NEXT V. 

PRT 
360 «="--- F I N -- 

378 FOR f=8 TO 7: PR 
T CSR 4; J: NEXT 
K:END • 



25 



SALAIRE 



EXELVISION-EXL 100 



« ! 16 HMnEtTi'Sli! 

To VA5 Mt FAi*£ CE 

V 



Maintene2 a jour votre compte en banque grace a ce pour Calcul horaire 

petit Utilitaire. - Taux horaires ? 



C.CHETIENNOT 

Mode d'empioi: 

Pour les deux cas : 

L'EXL 100 va vous demander successivement les questions suivan- 



Nombre d'heures normales ?(ex : pour 1 
Nombre d'heures a 25% ?(ex :2) 
Nombre d'heures a 50% ?(ex :3) 

POUR CALCUL MENSUEL : 

- Salaire mensuel brut ?(ex ;6700) 



• Nom du salarie ? 

- Prenom ? 

- Numero Securite Sociale 9 (rr 
imperative ment par ; 1 ou 2 ! 



Profession ? • Categorie professionnellie ?(ex; Cadre) 

• Periode du 7 (sur ce schema obligatoire ;??/??/?? (ex:0l 02 85 

• AU ? Se reporter a la question precedente. 



POUR LES DEUX CAS (suite) : 

- Plafond Securite Sociale '(actuel :8730i 
Entrez les taux comme sur le schema : ? ?. ? ''ex pour 

: 13. doit commencer 2.6; le est inutile. 

- Acompte ?(ex: 500) 



lndemnites ? 

Primes (non soumises a cotisalions) ? 

Autres primes ? 




■itwFJCHE DE SALAIREf...** 
lft»REALZ9E PAR**«M»ftMW« 

■#*#G ,CHRETIENNOT****.. n 



unnnaanc au nnnnnnnn 



LIGNE 



•aanann . nn 



7 .-»----........-.--....- 

B ric»- , 'OCi7CBE!flflE;AeE.02FC" :T0C»-"0D7C91B2BAB602FC" : CALL COLOR < "OWlLHt " > 

9 CLB "YBR" :A*-"FFIICCHHEE"tB»""OQEE"iC«-"SSAALLAAIIRREE" 

10 LOCATE (3.15):PRINT A»:LOCATE (4,15)lPRINT AS:CALL~ SPEECH* "L , " IT ICt ) : f ftUSE 

11 LOCATE (5,1B)lPRINT 8»lL0CATE (6,18>:PRINT B«lCALL SPEECH ( "L ," IT0C» ) [PAUSE 

12 LOCATE (7,13):PRINT C*:LDCATE (B,13)iPRINT C*:CALL SPEECH( "L , "" IT IC» ): PAUSE I 

13 CALL COLOR* "OGb") 

14 LOCATE (20,1>;PRINT "Copyright < C )- 1983" i LOCATE (21,1) 

13 PRINT "PROOUIT ET REALISE PAR. - . CHRET IENNOT" iLOCATE (22,25) 
1E PRINT "-P.SOUVICNY ":PAUSE 2 
17 CALL C0LOR("OMb"):L0CATE (10,10) 
1B PRINT "1 — > SALAIRE HORAIRE" 

19 LOCATE (13,10>:PRINT "2--> SALAIRE MENSUEL"-.LOCATE (IE, 10) 

20 PRINT "3--> FIN PROCRAMME":LOCATE (17,15):CALL COLOR( "OVR" ) 

21 PRINT "VOTRE CHOIX"; 

22 CALL COLORC'OBB" ) :FDR 1=1 TO 10000 : K»=KEY» 

23 IF K»*"1"THEN 26 

24 IF K»="2"THEN 144 ELSE IF K»-"3"THEN CLSlEND ELSE IF K*-""THEN 25 
23 CALL SPEECHC'L, "IT0C«):NEXT I 

26 CLS 

27 'QUESTIONNAIRE 

26 CALL C0L0R<"0WB">:L0CATE (2,B):PRINT ' 

29 FOR I"1 TO 4O:L0CATE (X,I):PRINT "-' 

30 LOCATE (3,1):INPUT "NOM DU SALARIE 

31 PRINTiINPUT "NUNERO SEC . SOC . 7" J NS8« 

32 IF LEN(NSB»)-13 AND SEE* ( NSS» , 1 , 1 )-" 1 "THEN 34 

33 IF LEN(NSS»>-13 AND SEC» ( NSSt, 1 , 1 > ""2"THEN 34 El SE 31 

34 PRINTiINPUT "PROFESSION ?" ;Pt I PRINT I INPUT "CATEGORIE PRDF , ?•■ j CP« :PRINT 
33 INPUT "PERIODE OU ?" jPTIti INPUT "AU ?"|PTM 

3F, IF LEN(PT1*X)B OR LEN(PT2»)()B THEN 35 

37 IF RETOUR-1 THEN RETURN 

3B PRINTiINPUT "TAUX HORAIRE ?";THiINPUT "NB HEURES NORM . 7" ;NHN 

39 INPUT "NB HEURES A 23X?";NHAA 



,E+F 



S2* CALL 



.",G 



.COMPL. 



. J.K 



■ QUEST 10NMAI RE ■' 

:NEXT I: CALL C0LOR( ••OYB") 
" jNSttPRINTiINPUT "PRENOH 



x-a 



B2 CALL SPEECHC'L, "tTOC«I 
83 print USING". nnnnonn: 
B4 CALL SPEECH("L,"trOC:«) 

85 CALL COLOR! "OYe") [CALL 

86 CALL SPEECHC'L, "tTOC»> 

87 PRINT USING"d SALAIRE BRUT 

88 CALL SPEECHC'L, "»TOCt> 
B3 PRINT USING 72,"S.S. MALADIE' 
30 CALL SPEECHC'L, "ITOCt) 

USING 72,"ASS.VIf 
SPEECH* "L ,"tTOC»> 
93 PRINT USING 72 J "CH0MAGf 

34 CALL SPEECHC'L, "1T0C*> 

35 PRINT USING 72,"ASS.MAL 
96 CALL SPEECH("L,*'1T0C*) 
37 PRINT USING 72, "RETRAITE COMPL. 
98 CALL SPEECHC'L, "ITOCt) 
39 CALL LICNE 

100 CALL SPEECHC'L. 

101 PRINT USING 73, 

102 CALL SPEECHC'L , 

103 CALL LIGNE 

104 CALL SPEECHC'L, 

105 PRINT USING 73, 

106 CALL SPEECHC'L, 

107 PRINT USING 73, 

109 CALL SPEECHC'L, 
103 PRINT USING 73, 

110 CALL SPEECHC'L, 

111 PRINT USING 73, 
1 12 CALL SPEECHC'L, 

113 PAUSE 7:L0CATE 

114 CALL COLORC'OBB' 
113 ACCEPT UAL.IDATE("0N">5IZE<1) ,REP«:IF REP*-"N" THEN C* 

116 CLSlCALL COLORC'OMB") :l OCATE ( 1 , 1 ) (CALL LIGNE 

117 CALL SPEECHC'L, "ITOC»> 

118 PRINT ". VERIFICATION DES CALCULS •":CAL 
"ITOCi> 



,CP*,PT1«,PT2» 



TCO,TCO 



"*TOC*> 

"TOTAUX" 

"(TOC») 



"1T0C»> 

"SAL.NET IMP 
"tTOC»> 
"ACCOMPTE"," 
"IT0C»> 
"PRIMES N.COT 
"IT0C«> 
"SALAIRE NET" 
••IT0C«) 
(22,7) :PRINT 



,se-Tco 



, ACC 



,PNC;CALL LICNE 



"",SNET:CALL LIGNE:CALL COLOR* "ORB" ) 
VERIFICATION DES CALCULS ?" l 



10 IF I 



(B THEN 



41 INPUT "NB HEURES A 50X7";NHAB 

42 CALL EFFlLOCATE (5,1>jINPUT "PLAFOND SEC. SQC. ?" ; PSS : PRINT 

43 INPUT "S.S.MALAOIE t (?*?.?? ) ?" [SSM iPRINT 

44 INPUT "S.S.MALAOIE 1 1 (7? . T? > 7" ; SST i PRINT 

43 INPUT "ASS. VIEILLESSE Ml?',??) ?")AVtPRINT 

46 INPUT "ASSEOIC(chonaga) t1 *7'?,??> ?"; ASS( 1 ): PRINT 

47 INPUT "ASSEDICCclioMge) t2 (?'.??) ?" ) A3S( 2 > [PRINT 

49 CALL EFFlLOCATE (S,1):INPUT "RETRAITE COMPL . t1 C? . " ) ?"J| 

49 INPUT "RETRAITE COMPL. t2 (??.??) ?" [RC( 2) :PRINT 

50 INPUT "ASS. MAL. COMPL. t1 (?■?.'?) ?'• ;AMC ( 1 ): PRINT 

31 INPUT "ASS. HAL. COHPL . t2 <■?■?. ■?■?) ?" ; AMC ( 2) : PRINT 

32 INPUT "ACCOMPTES ">" ; ACC : PRINT i INPUT " INDMENI TES'" ; IP :PRINT 

33 INPUT "PRIMES (NON SOUM.A COT.) ?"(PNC:PRINT 

34 INPUT "PRIMES ->";PV:CALL COLOR C'OGblLHF" » 

55 CLS : A»«"VVEEUL'I ILLEEZZ PPAATTI IEENNTTEERR" 

56 LOCATE (10,3);PRINT A»:LOCATE (11,3):PRINT A* 
37 IF RETOUR-1 THEN RETURN 

59 > CALCULS 

59 A-TH«NHN:B-TH«NHAA«.25:C-TH«NHAEi».5:D-A»B.C:SB=D.ID«PV 



121 


CALL SPEECH 


"1- . 


•tTOCtl 


1 22 


PRINT USING 


74 | 


'SEC.S0r.MAL.",SB,5SM,E.F;PRINT 


123 


CALL SPEECH 




■STOC«) 




PRINT USING 


74, 


•ASS.VIEIL.",PSS,AV,C 


ITS 


CALL SPEECH 


"L ■ 


'tTOCtl 


1 .'£ 


PRINT USING 


7G 




127 


CALL SPEECH 


"i i 


■<TOC«) 


1 MB 


PRINT USING 


7i , 


'CH0MAGE",PSS,ASS(1 ) ,H.I 


i U9 


CALL SPEECH 


"L , 


■«TOC»> 


ISO 


PRINT USING 


76 




131 


CALL SPEECH 


"1 i 


'iTOC«) 


132 


PRINT USING 


7 A ■ 


RET. COMPL." ,PSS,RC( 1 ) , JtK 


133 


CALL SPEECH 


"1 . 


•iTOC*) 


134 


PRINT USING 


7F. 




133 


CALL SPEECH 


"I i 


'ITOCt) 


136 


PRINT USING 


74, 


'M AL. COMPL.", SB, RC(1 > , J.K 


137 


CALL SPEECH 


"I i 


•ITOC»> 


138 


CALL COLOR* 


ORI 


■>;CAIl LIGNE:CALL CDLORC'ObB" ) 


139 


CALL SPEECH 


"'-, 


■ITOC») 


140 


PRINT USING 


/b: 


RINT USING 75,"TOTAUX",TC0,TCO 



60 E-S6»SSM/100: IF 

61 IF S6)-PSS THEN 

62 IF SB>-PSS THEN 

63 IF SB)-PSS THEN 

64 IF St) -PSS THEN 
63 IF SB)»PSS THEN 

66 IF SE;)°P5S THEN 

67 IF SB)-PSS THEN 
6B TCQ = E*F.C4H,nj 
63 PAUSE 2 

70 i TABLEAU 

71 CALL COLORI "OMfi" ) :CLS;LOCATE (1,1) 

72 IMAGE "a turn Hen nil an una nc .n an hbo .an. 

73 IMAGE "■ an»nnr;B::nnu = n:;n nBnnQDn.iin.naiinn.ilil 

74 image '-.nnnnnnnnnnnii.nnocn .n x nn. a-. 100-nnnn . 

75 image ".nnnniinnnnnnn.annnnnnn .nn nnnnnnun.nn 

76 IMAGE "■ ■ 

77 IMAGE ".nnnuannnniinc.nunnttncnnnnitnnnniinnnnn.ij 

78 IMAGE "■ n ■ 
73 CALL LIGNE:PR!NT USING 1 
80 CALL SPEECHC'L, "ITpC«) 
SI PRINT USING"* cauDDuna 



SB) -PSS THEN F=PSS»SST/100 ELSE 

G-PSS-AV/100 ELSE C=SB»AV/100 

H=PSSnASS( 1 )/100 ELSE H=SB>ASS( 1 >/1' 

I-(SB-PSS)»ASS(2)/100 

J=PSS»RC(1 )/100 ELSE J-SB«RC( 1 )/100 

K-(SB-PSS)«RC(2)/100 

L=PSS«AMC(1>/100 ELSE L =SB*AMC( 1 ) / 1 

M=(SB-PSS)>AMC(2)/100 

K,L.H:SNET=CSe.PNC>-<TCO.ACC> 



aanannnnnnnnnam 



man nnnnnnnnnnnnnnnnnnnn 



SB.SST/100 



153 
134 
133 



>:CALL LIGNE 



CALL SPFECHC't ,"ITOC«) 

CALL LIGNEtPAUSE 10:CALL ASALA 

CLS I END 

■CALCUL MENSUEL 

CLS:RET0UR = 1 ; GOSUB 28 : PR INT : INPUT "SAL . MENS. BRI 

RET0UR=1 : GOSUB 42 : RET OUR- ;SBM»SB+ IDtPV 

> CALCULS 

E=SBM.S5M/100:IF SBM)=PSS THEN F=PSS»SST/1 00 ELSE 

IF SBM>=F'SS THEN G = PSS»AV/100 ELSE G=SE;M.AV/1 00 

IF S£;M> = PSS THEN H=PS5»AS5( 1 ) 7100 : I = ( SBM-PSS > «ASS( 2: 

H"=SBM»ASS< 1 )/100 

IF SBM> = FSS THEN J=PSS»RC( 1 ) /1 00: K- (SBM-PSS ) bRC ( 2 > /I 00 ELSE J=SB«RC ( 1 ) /TOO 

IF SBM)=PSS THEN L=PSS«AMC(1 ) /1 00 : M- ( SBM -F'SS ) «AMC ( 2 ) /1 00 : GOTO 155 

L=SBM.AMC( 1 1/100 

TCO = E.F.G.H.I.J.K.L.M:SNET=.SBM-TCO-ACC:SB=SBM 

GOTO 70 

PRINT TAB(40>:NEXT ItSUBENO 

NEXT I:SUBEND 



'";SB:CALL EFF 



=SBM.SST/ 



100:GOTQ 152 



SUB EFF:FOR 1-3 TO 21:L0CATE (1,1) 
SUB LIGNE:FOR I«1 TO 40: PRINT "«"; 
SUB ASALA:CALL COLOR ( "OGB" ) 
PRINT TAE-* 1 1 ) ; "UNE AUTRE FICHE ?" ; 
ACCEPT VALIDATE* "ON" >SIZE(1> ,REP«: 
SUBEND 



RC'OBB") 

"THEN RUN ELSE CLS.-END 




V CANON X 07 

Suite de la page 7 

30010 'GESTION DES ERREURS 

30020 ' 

30030 IFERL=60620THENRESU«ENEXT 

30040 END 

35000 ' 

35010 -GESTION DES FUSEES 

35020 " 

35030 CLS 

35040 G0SUB60380 

35060 IFFTHENREST0RE35070ELSEREST0 

RE35080 

35070 DATA-I1 n* vaui r»»t» plus q 

35080 DATA-RIub <t* fu»**,vous .v»z 

done p»rdu la parti* ' 
35090 READN: IFFTHENN~N*STR«IF) *"FU 
SEE(S) . 

35100 J-LEN(N) : N (01 » •■«»*.»»" : N ( 1 >■ 
•FUSEES 



35120 G0SUB60790 

35130 IFFTHENCLS:RETURNELSECLS: LOG 

ATE5, 2:PRINT'A bi»ntot '?":CLEAR50 

35140 C0NS0LE0,4,0, 1, 1 : END 

40000 ' 

40010 'DATAs 

40020 * 

40030 DATA" 252, 128, 128, 128, I 28, 128 

,128,128", -252, 16,56, 124,252,252,2 

52,252 

40040 DATA "252, 0,0,0, 128, 128, 128, 1 

28" , •'252,0,0,0,0,0,0,0- , "252,0,0,0 



,4,8, 1< 



. 32 



40050 DATA "252, 0,0, 128, 64, 32 , 16, 8" 

, -252,0,0,0,0,4, 12,8 

40060 DATA" 252, 0,60, 124,252, 252,25 

2,0" , "252,0,252,252,252,252, 252,0 

40070 DATA- 252, O, 248,248,248,248,2 

48,248", "252,4,4,4,4,4,4,4 

40080 DATA" 252, 252,252, 252,252,252 

,252, 252" , "128, 128, 128, 128, 128, 12B 

, 128, 128 

40090 DATA" 128, 252, 1 28, 1 28, 123, 128 



, 128, 128", "0,252,0,0,0,0,0,0 ,252" 

40100 DATA "32, 232, 44,40,40, 40, 40, 4 «»0190 

O", "8,40.40, 168, 104,40,40,40", -0,0 |2S2, 

,0,0,0,0,0,0 40200 

40110 DATA"8,8,8,8,8,8,8,8", "0,0,0 .248. 

,248,0,0,0,0", " lir, 136, 152, 168,200 . * 4 ° 

, 136, 112,o 40210 

40120 DATAMI2, 136,152, 168,200,136 ' 25Z 

,112,0", "245,248,248,248,248,240,2 i^.O 

24, 192 40220 

40130 DATA "4,4, 4,4,4,4,4,4", "32,^^ ,188 

,44,32,32,32,32,32", "8,8,232,40,72 • 60 

, 136, 136, 136 40230 

40140 DATA-12, 0,0, 0,0, 0,0,0", "252, .248 

0,0,0,0,0,0,4", -128,0,0,0,0,0,0,25 • 25Z 

40240 

40150 DATA-4,4,4,4,4,4, 4,252" , "128 4,216 

, 128, 128, 128, 128, 128, 128, 252 4, 240 

40160 DATA "252, 128, 1 28, 1 28, 1 28, 1 28 40250 

. 128,252", -252,0,0,0,4,8,28,252 2 8 " 
401 - '0 DATA-224,32,64, 1 28, 0, 4, 24R , 2 
52" , "140,0,4,0, 128,64,60,252 
40180 DATA" 192, 96,48, 152, 76, 36,240 



"0,0,0,0,0, 128, 192,252 
DATA-O, 0,0,0,0,0,0,252", "252 

124,60,28, 12,4,0 
DATA" 252, 240,248, 240, 244, 248 

248", "252,60, IBS, 12, 12, 12, i 40 

DATA" 252, 252, 252, 252,252,252 
248", "252,252,252,252,252,252 

DATA"252,252,252, 252,252,252 
252" , "252, 124, 124,60,60,60,60 

DATA "252, 252, 252,252, 248,240 

252" , "248,252,252,252,244, 124 

252 

DATA" 12, 4, 132, 132, 132, 164, 14 

, "252,252,248,240,224,224,22 

DATA "252, 252,60,28, 12, 12, 12, 
252,252,252,252,252,252,248,2 

ASUIVRE... 



EDITEUR MUSICAL 



La machine superbe et douee 
En son sein gardait le secret 
De celestes sons enchantes 
Connus de quelques initios. 

Philippe PAIR 



A suivre : 

En raison de ta longueur 
mhabttuelte du listing, 
nous passerons ce pro- 
gramme en deux fois 




Mode d'emploi : - Les 4 touches a" edition flechees scvent a deplacer le curseur sur - W (Write) execute lecriture des resultats de vos reche'ches sur 

Ce programme permet dediter, decouter et de moduler des sons a la position dun des parametres de la note a modifier Le nombre ecran, imprimante. cassette ou lout autre penpherique a venir. Seuis 

souhait. II effectue ensuite les calculs et donne les valeurs a char- demande pour ce parametre est toujours en hexadecimal (a lexcep- les ecrans sur lesquels vous avez travaille sont inscrits ou memori- 

ger, avec SOUND, dans les differents registres du processeur so- tion. il en fallait une, du numero decran; entre et 19 inclus). ses sur le support voulu. 

nore. Ces donnees pourront etre employees ulteneurement dans - Entre deux sons successes, certains parametres peuvenl ne pas - L (Lecture) lit un travail precedemment sauvegarde sur cassette ou 

vos programmes BASIC ou MACHINE varier. Recharger le regislre correspondant avec la meme valeur sur tout autre penpherique. 

NOTICE DE FONCTIONNEMENT provoque (notamment pour les frequences) une petite coupure de • V vous donne les valeurs correspondant aux differentes formes 

Jusqu a 140 sons peuvent etre definis dans 20 ecrans de 7 notes son qu'il est bon d'eviter. Pour cela une information supplementaire d'enveloppe qui sont dessinees a l ecran 

chacun. Chaque son est represente par une colonnecomponantles est ajoutee aux 16 chiffres disponibles en hexadecimal: il s'agit du - $ permet la definition dune chaTne de caracteres qui sera utilisable 

donnees qui le determinent. Apres RUN, vous voyez apparattre signe multiplie. Ce signe signifie que la valeur correspondante n'a par la suite avec la touche TAB. Par exemple, si vous desirez ecrire 

lecran 0; il est initialise avec les valeurs que vous choisirez dans pas a etre, ni modifiee. ni annulee. mais juste conservee dans le plusieurs fois de suite la valeur "FFF" sur le tableau, definissez votre 

une des 3 premieres lignes de DATA (zero, rien, ou des valeurs registre en question. Ce signe indiquant une absence de charge- chaine comme "FFF" puis tapez sur TAB aux endroits voulus. 

arbitrages) Lecran est organise comme suit : ment du registre correspondant, il est bon de se souvenir (et ce - ESC permet de sortir du programme et replace I'ordinateur dans 

- En titre, ecran xx : Correspond au numero de lecran en cours. sera le seul cas) que les registreg sont decomposes dans le logiciel. son etat habituel. 

- fr a, fr b, fr c correspondent aux frequences des 3 voies A. B, C Une mise a ' de lamplitude de /v.place aussi le mode de A a * • Les touches de fonction sont mitialisees avec une chaine de "' " 
(programmables de 55 Hz a 223 KHz environ) Un rappel des cor- Dans le cas du mode et de lamplitude. il est preferable de ne pas d'une longueur correspondant a leur numero (sauf F9 et F10 res- 
respondances note-frequences peut etre demande par I'utilisateur utiliser ' , pectivement de 12 et 15 "" "). 

(touche diese). - Diese donne les valeurs equivalentes des diflerentes notes dans 8 

- mx a, mx b. mx c correspondent aux possibilites de mixage des octaves successives Une sortie est prevue sur imprimante mais un - X comme vu precedemment, rappelle la fonction de la ligne en 
canaux A. B, C (sur chaque voie : Son et bruit ou lun des deux rappel des valeurs est effectue tors du retour a lediteur. cours et H les differentes possibilites du programme, 
seulement). Le premier nombre represente la note, le second le • R permet la reinitialisation dun ou de plusieurs ecrans (aux va- Un BEEP signale une commande erronee el certaines commandes 
bruit. Un zero annule I'effet equivalent, un 1 le permel. leurs de celui sur lequel vous travaillez) demandent confirmation 

- mo a. mo b, mo c correspondent aux modes d amplitudes (puis- - M autorise ou annule le mouvement automatique du curseur : 
sances sonores) des trois voies. controlees soit par le generateur Curseur plein, mouvement normal (chaque appui sur un chiffre de- A vous maintenant, les sons les plus extraordinaires sont a votre 



d'enveloppe (1), soit par lamplitude elle meme (0). Evidemmenl si place le curseur a la position suivante). 

le mode est a 0. les periodes et les formes d'enveloppe n'ont plus Petit curseur, seules les touches flechees permettent le deplace- 

aucune action sur le son. ment de ce dernier. 

- am a, am b, am c correspondent aux puissances sonores si cha- - HOME (ou EFE/DEP) place le curseur sur le premier parametre de 
cune d'elle a ete requise precedemment dans le mode (de a F la premiere note (frequence de la voie A), 
puissance maximale). - CLS (shift HOME) place le curseur sur le numero de la page. Pour 

- p.vp correspond a la periode d'enveloppe demandee au genera- changer de page, il suffit de taper le numero correspondant a celle 
teur. Cette periode controle aussi la puissance sonore, si le mode demandee et d'appuyer sur RETURN (il faut environ 15 secondes 
est a 1 bien sur. pour passer dune page a une autre deja memorisee). 

- f vp correspond a la forme de lenveloppe (si le mode est a 1 ). Ces i - BS (petite Heche gauche a la fin de la premiere ligne du clavier) 
formes sont rappelees dans le logiciel (touche V). replace le curseur en debut de ligne courante. 

- brui correspond a la frequence du generateur de bruit (utile si un - RETURN permet : 
bruit est demande dans le mixage des voies). - De changer de page si vous etes sur la ligne ecran xx et que le 

- tmps est le temps qui est phs avant le chargement de la note t numero de la page mscrit nest pas celui en cours. Un ecran non 
suivante. encore initialise lest avec les valeurs de lecran sur lequel vous tra- 
Un appui sur la touche X (explication) vous rappelle la fonction vailliez precedemment (pour en permettre la continuite). 
exacte de la ligne sur laquelle se trouve le curseur.Toules les tou- - Decouter votre "oeuvre*. 

ches utiles sont rappelees par un ou plusieurs appuis sur la touche - = (egat) permet une ecoute plus rapide de loeuvre que vous avez 

H (Help): examinons-les une fois en detail : memorisee precedemment avec RETURN 



portee; une seule limite. votre imagination ! 



GENERATEUR A 


1 CANAL B I CANAL 1 1 


GENERATEUR B 


1 CANAL 21CANAL 31 


GENERATEUR C 


1 CANAL « 1 CANAL 3 1 


OENERATEUR BRUIT 







VOLU""E CANAL A 



Au- ljgr,»» 1000 A 1400 at 6200, le 
H correspond au ciruttr* graphiqu 

• Qbltnu par GRPH.L 

1000 * HHHHHHHMHHMHHHHHHHH 

1100 • H H 

1388 ' 14 EDITiUB MUSICAL » 

1400 - HHHMHHHMHHHHHHHHHHH 

1600 ' Pour ordimifur MSX 32 Ko 
190O ' Icl PMhpm PAIR 
2100 ' 1983 

2300 ' HEBDOGICIEL No KM. 

2600 'Initialisation a*» note* 

2700 ' Ligne* 2700 a 2900 au choi. 
de 1 • ut l I lsataur rta pa> tapar les 
autres ou prtcldtfi da ' ou REM 

2800 DATA348,BFF,270,1/O,l/0, WO, 1 

,0,0,0,9,6, 1FOO,C,00,003C 

2900 Rf-:n[JATA»»*, §*+,♦»*,*/*,*/*,*/ 

3000 REMDATAOOO, 000,000,0/0, 0/0,0/ 

0,0,0,0,0,0,0, 0000 ,0,00, 0000 

3100 "Modes d'emploi 

3200 'avec WIDTH 40, central laa D 

ATA 

3300 DATA* Utilise! laa touches 

flechees pour daplacar la c 

uraaur cl Ignotant. Tom laa 

lUKiKll* 10, 1,2,3. . .D,E,FI * 

3400 DATA* ft Indlque 1'jbnnct da 
cinrjtmrn du rtgiitri c 

□rraapondant Las touch 

as: Fl-*l F2-**...FB-S '*' w 

u»: F9-12 "** at F10-1S '#•* 
3300 DATA- H --) defilement das 



i:beep 



4400 DATA" p.vt PERIODE Du FRE8UE 
NCE d-ENVELOPPE commune a t 

O 17 en I 1 lone-tes da seconde) 
a FFFF 14.7 aacondes) * 
43O0 DATA- f.wt F0RHE O'ENVELOP 



4600 DATA* b 


-ui: 


FREQUENCE 


DU GEN 


RATEUR DE BR 


J " 








00 U -22372 


Hz 








at IF 1- 


QU 


Hzl ' 






4700 DATA- 


~p* 


: ATT 




ivint 


a CHARGEMENT 


du 


un 


■uivant an 


eMe»6! 1 sc- 


ICI 


2 ic- 


TBHO 


1/ l 
■C-2SB 


4B00 'equiva 








4900 ' 




ATTEN 


ION 




chaqua 


,*.- 


labia 


co-port a 8 



raa lou aapacasl 

3000 DATA LA .LAKiSIb ,61 

.DO ,DO«IREB ,RE ,RE«I 
Mlb ,M ,FA ,FAHIS0Lb,SO 
L ,'■!»; I >•■'.:■ 
5100 'daasln das envaloppas 
32O0 DATAO0,O0,00,00,0O,00,OO,FF,B 
O , CO , AO , 90 , 88 , 84 , 82, 8 1 , Ol , 03 , OS, 09 



?2O0 PRIN 

7S0O 

7600 • » tt 

7700 ■ « BOUCLE PRINC1PALE » 

7B00 ■ » * 

7900 ' HH i mHIIIIIII I II I I 

B200 PS-BASE 10) *L#40*C:CA-VPEEKIPS 

) : VPOKEPS , 234 : QDSUBB300 : VPOKEPS, C A 

: GOT0B200 

B400 • it um um mmun t-HUH 

8300 ' ft SAISIE DES COMMANDES • 

B600 ' * ft 

B700 * * CONTEXTS 0' AIGUILLAGES ft 



9200 S-INSTR(CHR«(2BJ *CMR« ( 29 > *CHR 

-1301 *CHR*13I > , Mai : IFS( >0THENG0TOl 

0200 'touchaa flachaas 

9300 0NINSTRCVMHXKW-RLa"*CHR»(13l 

• CHfitlfi .CHRSI2?) , MSI GOT 024000, 171 

00, 20200 , 2 1 000 , 2 1 900 , 39800 , 46300 , 2 

7600,43200,23900, 16300,26400,31300 

9400 IFMa-CHRailIlTHENL-2:C-6:RETU 

RN 'hoaa 

9300 IFM«-CHR«1121THENL-0:C-22:RET 

URN 'els 

9600 IFMa-CHRS(8>THENC«4:S-l:G0T09 

900 'dabut da ligna 

9700 beep:return 

99o0 ' touche flechees 

10000 ' i i ihiiiiiiiiii 

1 0200 onsgosub 1 1 200 , 1 2400 , 1 0600 , 1 1 




14900 Aa-LEFTBtAa.CMODS-ll *M»»MID* 

<AS,Cf-0D3*l,2> 

15000 RETURN 

13100 '4 chiffras 

13200 Aa-LEFT*IA»,CN0D3»*Na*MIDa(A 

C,CM0D3*2,3I 

15300 RETURN 

13300 ' NUMERO DE L* ECRAN 

13800 IFIN5TRC-*A8CDEF-,MS>< >OORIC 

-22ANDINSTRI'01*,M*)-OITHENBEEP:RE 

TURN 

13900 CA-ASC IMSi 

16000 IFC-22THENES-N*. RIGHTS (ES, 1 1 

:S-l: GOTO 10200 

16100 ES-LEFTBIES, 1 I -MS:REruRN 

16300 ' RETURN acouta ou changt an 



20300 READXa: IFXB~*FIN"THENRESTORE 

330O:GOTO2O3O0 

2060O G0SUB30B00 

20700 PRINTXSi 

2O800 RETURN 

21000 'EXPLICATIONS SUR TABLEAU 

21100 ' 

21300 IFL-0THEN2O200 

21400 REST0RE40OO: J-L 

J-INT(J/3»ELSEJ"J-10 

21500 FORI-lT0J:READXa:NEXT 

21600 GOSUB3O80O 

21700 PRINTxai :REST0RE3300:RETURN 

219O0 'CORRESPONDANCES DES FREOUEN 

CES 

22000 



13THEN 



1 64O0 ' 

16600 IFL-OANDEOV 

16700 GOSUB29700 ' 



1,00 



I, BO 






3600 DATA'RETURN sur No d'acran-ch 



ut* 



,80,40,20, 10,08,04,02,01 

3300 ' initialisation 

3800 clear2000:definta-i,p-r,t-z 
3900 screeno:color3,i:keyoff:dimpp 

«II6,7i ,RG(20, 13,71 !ONERR0RG0TO497 
00 



-> reinitialisation d'acrans* 
3700 DATA* HOME --> patntaur a sa 

placa d'origine BS --> polntaur d 
abut da I i gna couranta CLS --) poi 
ntsur sur nuraaro d'acran ESC - 

-> fin d'axacutlon du proBranmi 

3800 DATA- a --> definition d'une 



6000 UIDTH40:P0KEIiHF3Bl,30 



6200 L0CATE12.6 






3900 DATAFII 



,, b, c - FREQUENCES 
c da 000 ll-->22372 
>35 Hzl Pour las 
orraspondanca das 



H EDITEUR MUSICAL H 

HHHHHHHHHHHHHHHHHHH* 
6300 L0CATElB,2Z:PRINTCHRat64) I * P 
hi 1 ippa PAIR 11983) * 

6400 L-2:c-6:Ea--oo-:E-o:PR-o:DR-o 

6300 OUTkHAA, INP itaHAA) ANDkHBF : POKE 
LHFCAB.233 '-id an mode majuscule 
6600 G0SUB17100 'initialisation po 



103O0 IFINSTRIrta.CHRSIVPEEKtBASEtO 

) »L*40*CI } I-0THENI0200 

10400 RETURN 

10600 'MOUVEMENT MAUT 

10800 IFL-OTHENL-18 

10900 L-L-l 

11000 RETURN 

11200 'MOUVEMENT DROIT 

11400 IFC-39TMENC-4:L-LH: IFL-18TH 

ENL-0 

11300 C-C*l 

11600 RETURN 

11800 'MOUVEMENT BAS 

12000 IFL"17THENL«-1 

12100 L-L»l 

122O0 RETURN 

12400 ' MOUVEMENT GAUCHE 

126O0 IPC-0THENC-39:L-L-l:IFL--lTH 

ENL-17 

12700 C-C-l 

12800 RETURN 

13000 * ECR1TURE D'UN NOMBRE 

13100 ' ftftftftftftaaftftft* 1 1 1 ■ 1 1 1 1 

13300 IFIL>4ANDL<11 lANDIHSt )-Q'AND 

MS( J-I-ANDMaO-ft" ITMENBEEPIRETURN 

'pour fvlttr las faussas informati 



168O0 G0SUB477OO 'Ecoutar ll 

16900 RETURN 

17100 ' MOUVEMENT OUI/NON 

17400 J-BASE(2) »234*B 

17300 IFM0-OTHENM0--l!FORI-OTO7:VP 

OKE J » I , 235: NE* T I RE TURN 

1 7600 MO-0 : FOR I -0T05 : VPOKE J • I , : NE 

XT:VP0KEJ»6,233:VP0KEJ*7,233:RETUR 

17800 ' MISE EN PLACE DE L ' ECRAN 

18100 CLS 

1B200 PRINTSPCI16) 1 'acran "|ES:PR 

NT 

18300 PRINT'fr a* I : F0RI*0T06: PRIN 

• -iPP»tO,I) i : next: print 

18400 PRINT'fr b- i : F0R1-0T06: 

- fppsii.n i : next: print 

18300 PRINT'fr c* I : F0RI-0T06: 

•|ppai2, Im:next:print 

18600' ' attention, ordre des 



2220O r-b:s-2-u/12I :m«-' L 

«»««.«» Hz — ■ t 
. (ESITHEN2B700 22300 CLS: C0L0R1 , 6: PRINT- COR 

RESPONDANCE DES FREQUENCES", ,, IRES 
laorliitlan das TORE 3000: F0RI-0T01 1 : READAS: J=35*S* 

I»R:PRINTUSINGMa|AS, J , HExa ( 3379543 



16ft J) 



:ne> 



22100 PRINT, 



22300 PHINTSPC18I ' 



22600 IFR>1THENPRIN 






:H«--01234S ■ 



6700 CS-STRINGSI IS 

67B9ABCDEF«- 

6B00 F0RI«iTOB:KEYI,STRINGStI, "*" I 

:NEXT:KEV9,STRINGa(12, *»• I :KEV10,S 

TRINGSU5, 'ft-l 

6900 fori-otoi9:rgi i , o,o> -236: next 

7000 G06UB26900:G0SUB29700 'lnltia 



MODE D'AMPL 



4200 DATA* ao a 
ITUDE des von 

trolee par generateur d ' en we 1 oppe* 
43O0 DATA* am a,b, c : controle d ' AMP 



LES INSTRUCTIONS DE FONCTIONNEME 



13400 IFIL-16ANDCM0D3 = 2I AND IMS.: >*0 
ANDM«< >*l*ANDMS< ;■-*-) THENBEEP: RET 
URN 'pour avltar les faussas lnfor 

13500 IFL-l7ANnMS--*-THFNBFFPiRFTU 

13600 IFL-OTHEN13500 

13700 CA'ASC IMSI 

13BO0 I«L-2: IFI«3THENI-3ELSE1FI-3T 

HENI-3 

13900 A8-PP«tI, INTIC/3I-1I 

14000 ONLEN1AS1GOSUBI4300, 14300, 14 

800, 13100 

14100 PPSII, INT1C/3) -ll-AS 



18700 PRINT 
* *(PPaO, 
I8B00 PRINT 

-tPP*(4, 
18900 PRINT 

■|PPai3, 
19000 PRINT 

■ I PP» I ■ 
19100 PRINT 

19200 PRINT 

-iPPSI 
19300 PRINT 

■ I PP* I 
19400 PRINT 

- j PPa ( 

19300 PRINT 

■ 1 PPS 1 
19600 PRINT 

TPPSI12, II I 



ii a'l :FORI-OTO*:PRIN 

I :next:pr!nt 
i. *>•; :fori-oto6:prin 
I :next:prinT 

ix c" I :F0RI-0TO6:PRIN 

i :next:print 

io a*i :F0RI-0TO6:PRIN 

Il i :next:print 
io b"i :fori-oto6:prin 



:nex 



:fs:;i 



c*i :FORI=OT06:PR 

i :next:print 

a*! :FORI-0TO6:PR 

I :next:print 

b" I : FORI -OT06: PRIN 
I i :nexT:Print 
c*l :F0RI-0TO6:PR 



22700 IFR<63THENPRINTSPC 161 *♦ pour 

f raquancas super I auras* 
2260O AS-INKErs: IFAa-* • -ORA*-* -* AN 
DR< 63TMENR-R*2: G0T022300 
22900 IFAa-'-*ANDR)lTHENR-R/2:G0T0 
22300 

23000 IFA«**I*THEN236O0ELSEIFA8< >■ 
E-THEN22800 

23100 CLS : COLOR 15, 6: LOCATE 11 , 12:PR 
INT-UN INSTANT S.V.P..." 
23200 RESTORE3OO0:X****",F0RI-OT011 

:READAa:Aa-LEFT»iAa,4i :m*-righTS(A 

S, I I : IFMS-* J "THENA»-LEFT«IA*,3I •• 
23300 J"55»S" I*R: MS-HEX* ( 3379343a/ 



<3THENMS-*0**Ma:G0T 



: NE :■: 



IPf-IN 



( 16*J) I 
23400 IF 
O2340O 

2330O xs-xs*a*«- -»m**-/ *:next:co 

L0R3, 1:GOSUB17800:GOSUB20600:RESTO 

RE3300:RETURN 

23600 LOCATEO, 1 3: PRINTSTRINGa ( 240, 

* * MSTRING»(79, " * > 1 : L0CATE10, 17: 

PR I NT "IMPRESS I ON EN COURS. ..",,, SP 

CI 101 *CTRL-STOP POUR ARRETER* 

23700 RESTORESOOO: FORI -0TO1 1 ! READA 

•: j-55»s-i*R:LPRlNTusiNGMaiAa, J, he 

xai3579343a/ tl6»JI ) :NEXT 
23B00 LOCATEO, 13:G0T022400 
24000 ' DESSIN DES ENVELOPPES 
24100 ' HHI ' l ftftft eft eft ■*.»»»*» 

24300 SCREENl:C0L0R14, 12, 12: VPOKE B 
ASEI6K23.LHB0 

A SUIVRE... 



LE LOGICIEL DE LA SEMAINE 



HYPER BIKER de PSS 
POUR COMMODORE 



HIP el HOP el allons-y les 
freres. et FRONT HOP et 
SPEED JUMP el HIP el HOP 
et loumez les soeurs et 
WHEELIE et ENDO et ca 
bouge et toujours en musique 
Et HOP ' En hgne pour la pre- 
miere course, ca va speeder 
lout droit et pas dans le decor, 
de la souplesse dans le poi- 
gnet. de la force dans le mol- 
let. Et on patine et on pedale. 
tout dans la position Un petit 
coup de danseuse. histoire de 
refaire un peu son relard el 
HOP. on se qualilie pour 
I'epreuve suivanle 




Cetait tout plat.. II y a des 
bosses On pedalait sans s'ar- 
reter.. II faut ruser De la deli- 
catesse. du conirole et on re- 
part. On saute le trou. on 
passe dans I eau et on ressort 
sans tomber. Le pied par terre 
et adieu la victoire. Toujours 
maitre du pedalier on senvole 
vers le ruban. En route pour 
une iroisieme discipline. 

Sur deux roues c'est Irop fa- 
cile, on leve lavant et on re- 
prend C'est tout plat une nou- 
velle fois, on pedale el on 



avarice. Le pied alerte. loeil 
aux aguets on continue vers 
I'arrtvee. On ne reve pas il 
faut titer, le veto bien vertical 
Et on roule et on vole vers la 
victoire. dans cette manche 
seulement. pour le gros lot il 
tesle trots epreuves 

On se calme. on prend son 
souffle. Pas de faux depart, de 
lenergie. On appuie comme 
un maiade, on decotle lavanl- 
larnere et HOP Plus de 
contact avec la lerre Les dix 
metres sont dans le venl, voila 
les vingt. Et HIP c'est en hau- 
leur que lexerctce se conlmue. 
Meme chanson, meme rythme, 
mais maintenant on gratte le 
ciel Plus de probleme on em- 
poche les records et on 
sechaufle pour la derrnere 

El HIP el HOP les freres les 
soeurs du BMX (velo cross 
particulierement en vogue 
depuis quelques mois) se mas- 
sent les poignels avanl de se- 
couer le joystick en mesure Le 
Bunny Hop exige une parlaite 
condition physique : roue 
avant. roue arnere. roue avanl. 
roue arnere Et comme ca 
jusqu au poleau 

Six epreuves Pas de possibi- 
lite d'acceder a la deuxieme 
sans se qualifier a la premiere 
Mais ne fuyez pas : nen n'est 
impossible dans ce jeu L'en- 
trainement que vous suivrez 
vous transformera en cham- 
pion du Hyper Bike La simula- 
tion, apres essai par des prati- 
cants de ce sport, ressemble 
fort a la realite. y compris dans 
I'essoufflemenl en fin de 
course. Un excellent jeu d'ar- 
cade pour le Commodore 

Fred WHEELIE 



PEPE LOUIS CONTRE LE GANG DES PUCES I 7776/71/ 



RESUME DES EPISODES PRECE- 
DENTS Pepe Louis a convamcu 
Steve Jobard (le pdg d'Appoill et 
Jack Tiamolo (le pdg d Alrahi} de 
laccompagner a Pans pour lulter 
contre 1'Ombre Verte Mais I'avion 
est detourne vers Cuba 
lOeme EPISODE : 
LA SALSA DU GRAND PEREZ I 

Le 747 sest redresse brulale- 
menl. Par le hublol. je vois laile 
gauche qui (auche un champ de 
canne a Sucre et j'en conclus 
que nous avons retrouve une 
position horizontale. Devanl moi 
un mdme braille comme une 
chevre et une bonne soeur en 
cornette a lair de souftnr le mar- 
tyre On dirail quelle vient de se 
payer une seance de toboggan 
a cheval sur une lame de rasoir 
Jobard el Tramolo son! encore 
verts de peur. 

- Ca va s'arranger les p tits gars 
Vous faites pas de mouron Ce 
genre davion se conduit les 
yeux lermes. 

Ms ont beau serrer les dents. 
leurs gencives jouent le grand 
air de Toreador (et a travers) 
dans Carmen Ca Iremblote 
dans les voilures el les sieges 
se Iransforment en vibro-mas- 
seurs Puis on entend un grmce- 
menl caverneux. 

- lis onl sorti le train dattern- 
sage. murmure Jobard. 

On regarde encore par le hublot 
Le zingue nous fail le coup des 
montagnes russes. mais c'est 
normal puisqu on esl a Cuba B- 
nalemenl un bout de macadam 
mal enlretenu apparait sous la 
carlingue et I'avion se pose en 
sautant delicatement sur la piste 
comme Noureev dans le Lac 
des Cygnes Les pneus crissent. 
glissent et tentent desespere- 
ment de s'accrocher au gou- 
dron lis y laissenl leur sur- 
gomme. leur gomme. leur sous- 
gomme el finissent par s'eclater 
comme des betes. Le boeTng 
termine sa course sur les es- 
sieux et vienl doucement mounr 
devant la porte B de laeroport 
de La Havane. sans se presen- 
ter au bureau de la douane Le 



grand momenl de panique 
passe, on nous evacue preste- 
ment et lous les passagers se 
retrouvent parques dans une 
grande piece, genre salle des 
pas-perdus a la gare de I Est 

- C'est un coup du KGB. rale 
Tramolo lis veulent se payer 
nos tetes 

II serre la valise contenanl le 
prototype du nouvel ordinateur 
Alrahi contre sa poitrine 

- lis me lueronl ou je mangerai 
mon micro plulol que de leur 
laisser enlre les mains. 

- Je crois bien que je ferai de 
meme. rencberit Sieve Jobard 
Les pirates qui nous ont detour- 
nes onl disparu a la sortie de 
I'avion et personne ne les a 
revus. Deux policiers garden! la 
porte de la salle. mais ils refu- 
sent de faire le moindre 
commentaire sur la situation 
malgre les plaintes aftolees des 
voyageurs 

Sur les murs sont accroches 
d immenses portraits de Fidel 
Monaslorio. le Dictate ur de 
Cuba II est grand, tier, barbu. 
sourianl et son regard baigne 
dune force tranquille est tourne 
vers la ligne bleu pale de 
I" ocean oil un soleil couchan! 
etire ses derniers rayons de lu- 
miere dans le ciel rouge, comme 
autant despoirs dun peuple 
porte par ses propres esperan- 
ces vers des lendemams meil- 
leurs. la ou les oiseaux sifftotenl 
llnlernationale et ou le cours de 
la canne a Sucre alteint son pla- 
fond a Wall Street. 
La chaleur est lornde, etouffante 
et moustiqueuse. Je sue sous 
mon beret comme sous le bur- 
nous et je regrette amerement 
mon vinglieme arrondissement 
natal, la ou j'ai grandi dans l om- 
bre de Maurice Chevalier et 
d Edith Piat. 

- Ca va Pepe Louis ? Vous avez 
lair tout bleme... 

Je m'essuie les mains sur mon 
pantalon de velours cotele noir el 
je recale mon dentier avanl de 
paiier. 

- Bon. Pas Irop mal Faudrait 
pt'etre voir a se secouer les gui- 
bolles Moi. les emotions ca me 



donne soil Y a I y pas un disiri- 
buteur de queque chose dans 
ce patelm ? 

On commence a faire le tour de 
la salle. mais Jobard s arrange 
pour mattraper par le coude el 
me prendre a part 

- Pepe Louis, j'ai un service a 
vous demander 

Je vrille son regard de mon oetl 
glauque dont le blanc lire va- 
guemeni vers le iaune Je re- 
dresse mon epais sourcil et les 
poils viennent se planter violem- 
ment dans le tissu tendre du 
beret. 

II me colle sa valise dans les 
bras. 

- II ne faut pas que Ion sache 
que je voyage avec un ordina- 
teur prototype Si jamais celui<a 
tombe aux mams des russes. 
e'en est fait de ma sociele 
Nous allons etre pirate et I'equi- 
libre mondial lui-meme peut etre 
mis en cause Pepe Louis, gar- 
dez cette valise et diles que 
c'est la votre lis ne se mefieront 
pas d un vieillard. fort sympathi- 
que au demeuranl 

J'acceple betement avanl de re- 
flecbir. Deux minutes plus lard. 
Tramolo vient me laire exacle- 
ment la meme proposition. Cette 
(ois j'acceple encore. 

- St nous nous lirons de cette 
histoire. ie vous revaudrai ca, 
Pepe Louis 

Suite page 16 
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A VOS CONSOLES Tl 99/4 basic etendu disponible 

T.I. logo N° 2 disponible 



195 FD 

230 F 

800 F O 

1 200 F ; i 
1 340 F 
895 F D 

e%b f 



CONSOLES FT ACCESS0IRES Tl 99/4 

Miao-ordlnateui Tl 99/4A Pol 

Modulateur Secom France 

Modulateur Peritel 

Cable liaison magneto cassettes 

Magneto cassettes Texos instruments 

Mogneto cassettes Lansay / Compteur et cable 

Imptimonte Seikoscho 6P 50 A 

tmprimante SelKosc ha GP 500 

Imp rim ante Epson RX80 friction /tract Ion 

Mac nine a ecrire Brother EP 44 a memolre 

Interface porallete exterieure pour Tl 99 

Interface serle exterieure pour Brother pour Tl 99 1 090 F I J 

MunetleOejeuj Super Joy a v en louse avec 

interface speclale supportant 2 manerres 

Monette Quick Shot II o ventouse Tit bloque 

avec ailapiateur pour 2 monettes 

PROG RAM M ATI ON 

Extenaeo Basic manuel trancais 

Super extenaecl bosic graph manuel trancais 

Extension memolre 32K exterieure 

Tl Logo n° 2 en Ironcals llvroble avrll (Module) 

Mini memolre llvroble avrll (Module) 

K7 EPSILON/SOFTWARE POUR Tl 99 BASIC ETENDU 

lunar Lander 2 simulation de vols spatiaux 95 f 

Lunoi Jumper molo de I'espoce 1 20 F G 

Solar systeme pilotage a la carte en 3 dimensions 120 F L. 

Sum Gomes (les jeux olymplques) 1 20 T U 

K7 HEBDOGICIELS SOFTWARE POUR Tl 99 

N" 3 rubls socre Basic etendu 95 F D 

N' 4 5 jeux dont Dark Crystal Basic etendu 1 20 F □ 

N°2 12 |eux dont Roland Garros Basic etendu 150F D 

MODULES TEXAS ORGANISATION 

Gestlon de Tlchiers 260 F Tl Gestion de rapports 375 F D. 

Gestlon prlvee 360 F 

MODULES FUNWARE POUR Tl 99/4 

Rabbit Roll . Driving Demon . SI nick . Ambulance 

L ensemble 400 F 

MODULES R0M0X POUR Tl 99 

• Princess and Frog 9 niveau*, module d'adiesse convenanl o 
lous ■ Traverser lallee des cavaliers Traverser le tleuve Inleste 
de crocos - Reusslr a delivrer la prlncesse Le lout en 
musique 120 F LJ 

• Anleatet 9 niveaux • Un combat sans metci dans les galeries 
creusees pat les combartonrs - Acceleration Foudroyonte a 
portlrdu 7* niveau. 120F D 

• Rotot Raiders 9 niveaux Pac-Man dlaboltque et en 
musique. 10OF D 

• Ken Pecked 6 niveaux - Jusqu'a 10 ons un grand combat de 
coqs en musique 1 00 F D 




mini-memoire 



disponible avril. 



as5SS?u»8 



MINI-MEMOIRE 

Ce module ne se conlente pes de 

vous ottrir 4 Ko de memoire RAM 

(ultmentee poi pile) permettant la 

souvegoide des progrommes et 

don nee s tors que vous eleigne; 

rordinateur... 

II oaussi : 

• 4 Ko de memoire morle (ROM) et 

6 Ko de memoire morle gr a phi que 

(G - ROM) contenanl des utilitaires 

ties interessanls 

- occes possible a lexiension 32 K 
en Tl txisic; 

-ctxjrgemenl de programmes- 
otj|elsecr(tsenossembieur, soitsur 
mini-memoire. soil sur extension 
32 R; 

- utilisation de PEEK et PORE, oppel 
de sous -programmes habituetle- 
meninonaccessiOles, 
-programme de recherche 
d'erreuts (Easy Bug - Debug*. 

Le module 895 F | 



BASIC ETENDU 



Module comprenant un langoge de 
progtom motion rentotcant le Basic 
du Tl 99 . 40 commondes supple- 
mentaires. occes au langoge 
assembleur (Entrees/sorties) 
Sous -programmes, s lockage spri- 
tes, traitement d'erreurs. Expres- 
sions logiques LET multiple Intro- 
ductions multiples Acces a ('exten- 
sion 32 K. 



MODULE SUPERGRAPH 

Un nouveau bosic etendu avec 
35 functions supple menial res per- 
il ettonl de liocer lignes. cetcles. 
ellipses, axes, diogrammes en bar- 
res ou circuloires. Ce basic grophi- 
que presente 2 coractoristiques ires 
utiles: une copie d'ecran graphi- 
ques et textes (code ASCII). Vpoke 
et V/peeh acces direct 6 la Ram de 
controle ecran 1 200 F 



MlMOIRE 32 Rfonctionneavec le 
basic etendu 

Elle esl indispensable pour la pro- 
gram motion en logo Si I' on possede 
la mini memoire ou I'ossembleur. 
elle permel d'adiesser des sous- 
programmes en assembleur et de 
les execute! 
Le module 1 340 F H 



LOGO 2 (module) 

Ens eigne; a voire ordinaleur 
Icmes. cou leurs. musique. 
I procedures, carocteres Oessines 
variobles de lous genres. 
constructions grammatlcoles el 
onthmetiques 
le module logo 895 F ! 



PR0GRAMMAT10N SUR DISOAJETTES 

Coltrel peripherlque Texas engine USA 

comprenant le WHtler, le conirWeut. 

et I unite de disquotle 5 700 F I I I 




LANGAGE PASCAL comptenanl 

La carte P code et i« disquettes Pascal : 

USCD, Compiler . Assembleur llnket; 

Edlleurtllei 3300 FD 




LOT N° Z TOUT LE LOGO 
Module logo + memoir© 32 K 



LOT N°X 



Module jeux d' echecs . .4 B spociaux) bsofi 



LOT H" 1 INDISPENSABLE 

■ Module BASIC ETENDU manuel en trancais 

• K7 Basic par sol-meme 

• K7 Lunar Lander 2 (simulation de vols 




CONTR0LEURS - LECTEURS DE DISQUETTES 360 Ko 

• Carte conlroieur enticnable dans Doltier peripnerique 
(compatible avec unties de disquettes Texas). 
Double lace, double densite, 360 Ko 

• unite de teclure de disquettes 5' 1/4 SLIMLINE 360 Ko 
1/2 hauteur (2 lecleurs peuvenl tenir dans le 
comparfimeni 'disque' du boitier petlpnerlque). 

L'ensemble 6300 F D 

(livroison ovril) 

ARRIVtE PAQUES MODULES PARSEC adventufe 

plrale lathom donkey ttong,, demanded la llite 
complete des modules de jeux et d' education 
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Ces prli son] inaicoiiti el ttcuvenr tut modilies sons prtavis 
Produlls Olsponibles dans la Hmile de nos stocks en magasin 
Pantcloallon aux trait de pon el O'expeaillon en lecommanae 
looicieis I 30 t. Se renseigner pour les colis 
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